SCM Repository
Annotation of /emacs-goodies-el/debian/patches/52_gnus-pers.diff
Parent Directory
| 
Revision Log
Revision 1.1 - (view) (download) (as text)
| 1 : | psg | 1.1 | #!/bin/sh -e |
| 2 : | ## 52_gnus-pers.dpatch by Elias Oltmanns <oltmanns@uni-bonn.de> | ||
| 3 : | ## | ||
| 4 : | ## All lines beginning with `## DP:' are a description of the patch. | ||
| 5 : | ## DP: Verify gnus-newsgroup-name is set before using it (See bug #384402) | ||
| 6 : | |||
| 7 : | if [ $# -ne 1 ]; then | ||
| 8 : | echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" | ||
| 9 : | exit 1 | ||
| 10 : | fi | ||
| 11 : | |||
| 12 : | [ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts | ||
| 13 : | patch_opts="${patch_opts:--f --no-backup-if-mismatch}" | ||
| 14 : | |||
| 15 : | case "$1" in | ||
| 16 : | -patch) patch $patch_opts -p1 < $0;; | ||
| 17 : | -unpatch) patch $patch_opts -p1 -R < $0;; | ||
| 18 : | *) | ||
| 19 : | echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" | ||
| 20 : | exit 1;; | ||
| 21 : | esac | ||
| 22 : | |||
| 23 : | exit 0 | ||
| 24 : | |||
| 25 : | @DPATCH@ | ||
| 26 : | diff -urNad /home/psg/emacs/emacs-goodies-el/emacs-goodies-el/elisp/gnus-bonus-el/gnus-pers.el emacs-goodies-el/elisp/gnus-bonus-el/gnus-pers.el | ||
| 27 : | --- /home/psg/emacs/emacs-goodies-el/emacs-goodies-el/elisp/gnus-bonus-el/gnus-pers.el 2004-08-16 20:49:16.000000000 -0400 | ||
| 28 : | +++ emacs-goodies-el/elisp/gnus-bonus-el/gnus-pers.el 2004-08-16 20:51:59.000000000 -0400 | ||
| 29 : | @@ -868,7 +868,8 @@ | ||
| 30 : | (retval (nthcdr 2 split)) | ||
| 31 : | partial regexp) | ||
| 32 : | ;; Check to see if it's a "gnus-newsgroup-name" split | ||
| 33 : | - (if (equal ",gnus-newsgroup-name" (cdr (assq field gnus-personality-split-abbrev-alist))) | ||
| 34 : | + (if (and gnus-newsgroup-name | ||
| 35 : | + (equal ",gnus-newsgroup-name" (cdr (assq field gnus-personality-split-abbrev-alist)))) | ||
| 36 : | (let ((groupname gnus-newsgroup-name)) | ||
| 37 : | (if (string-match value groupname) | ||
| 38 : | retval)) |
| root@alioth.debian.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
