diff options
| author | Chong Yidong | 2005-10-23 16:25:36 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-10-23 16:25:36 +0000 |
| commit | 2a0d53ac48a8306d85f985011910ea25a15f1521 (patch) | |
| tree | 0d82303b176206f22c3cc8dfbcdd9b4ee33583cb | |
| parent | 04f0adee726dc7c3541da2a700bcbaf62591b6d6 (diff) | |
| download | emacs-2a0d53ac48a8306d85f985011910ea25a15f1521.tar.gz emacs-2a0d53ac48a8306d85f985011910ea25a15f1521.zip | |
* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Handle case
where gnus-ignored-from-address is an empty string.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 793bd1f4a3b..3e82ae07120 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2005-10-23 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Handle case | ||
| 4 | where gnus-ignored-from-address is an empty string. | ||
| 5 | |||
| 1 | 2005-10-20 Hiroshi Fujishima <hiroshi.fujishima@gmail.com> (tiny change) | 6 | 2005-10-20 Hiroshi Fujishima <hiroshi.fujishima@gmail.com> (tiny change) |
| 2 | 7 | ||
| 3 | * mail-source.el (mail-source-fetch-pop): Require pop3. | 8 | * mail-source.el (mail-source-fetch-pop): Require pop3. |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index c9e93d19f42..3bcbf82d93c 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -3304,6 +3304,7 @@ buffer that was in action when the last article was fetched." | |||
| 3304 | gnus-newsgroup-ignored-charsets))) | 3304 | gnus-newsgroup-ignored-charsets))) |
| 3305 | (or | 3305 | (or |
| 3306 | (and gnus-ignored-from-addresses | 3306 | (and gnus-ignored-from-addresses |
| 3307 | (not (string= gnus-ignored-from-addresses "")) | ||
| 3307 | (string-match gnus-ignored-from-addresses gnus-tmp-from) | 3308 | (string-match gnus-ignored-from-addresses gnus-tmp-from) |
| 3308 | (let ((extra-headers (mail-header-extra header)) | 3309 | (let ((extra-headers (mail-header-extra header)) |
| 3309 | to | 3310 | to |