Mercurial > emacs
changeset 66330:315411603f68
Reverted last change for a better fix:
* gnus-sum.el (gnus-ignored-from-addresses): Handle case where
user-mail-name is an empty string.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 23 Oct 2005 16:29:35 +0000 |
| parents | eaa19e98cd04 |
| children | b7cebaced227 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 23 16:25:36 2005 +0000 +++ b/lisp/gnus/ChangeLog Sun Oct 23 16:29:35 2005 +0000 @@ -1,7 +1,7 @@ 2005-10-23 Chong Yidong <cyd@stupidchicken.com> - * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Handle case - where gnus-ignored-from-address is an empty string. + * gnus-sum.el (gnus-ignored-from-addresses): Handle case where + user-mail-name is an empty string. 2005-10-20 Hiroshi Fujishima <hiroshi.fujishima@gmail.com> (tiny change)
--- a/lisp/gnus/gnus-sum.el Sun Oct 23 16:25:36 2005 +0000 +++ b/lisp/gnus/gnus-sum.el Sun Oct 23 16:29:35 2005 +0000 @@ -1000,7 +1000,9 @@ :type '(repeat symbol)) (defcustom gnus-ignored-from-addresses - (and user-mail-address (regexp-quote user-mail-address)) + (and user-mail-address + (not (string= user-mail-address "")) + (regexp-quote user-mail-address)) "*Regexp of From headers that may be suppressed in favor of To headers." :version "21.1" :group 'gnus-summary @@ -3304,7 +3306,6 @@ gnus-newsgroup-ignored-charsets))) (or (and gnus-ignored-from-addresses - (not (string= gnus-ignored-from-addresses "")) (string-match gnus-ignored-from-addresses gnus-tmp-from) (let ((extra-headers (mail-header-extra header)) to