Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 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 | 6f5da26b0df1 |
comparison
equal
deleted
inserted
replaced
| 66329:eaa19e98cd04 | 66330:315411603f68 |
|---|---|
| 998 :version "21.1" | 998 :version "21.1" |
| 999 :group 'gnus-summary | 999 :group 'gnus-summary |
| 1000 :type '(repeat symbol)) | 1000 :type '(repeat symbol)) |
| 1001 | 1001 |
| 1002 (defcustom gnus-ignored-from-addresses | 1002 (defcustom gnus-ignored-from-addresses |
| 1003 (and user-mail-address (regexp-quote user-mail-address)) | 1003 (and user-mail-address |
| 1004 (not (string= user-mail-address "")) | |
| 1005 (regexp-quote user-mail-address)) | |
| 1004 "*Regexp of From headers that may be suppressed in favor of To headers." | 1006 "*Regexp of From headers that may be suppressed in favor of To headers." |
| 1005 :version "21.1" | 1007 :version "21.1" |
| 1006 :group 'gnus-summary | 1008 :group 'gnus-summary |
| 1007 :type 'regexp) | 1009 :type 'regexp) |
| 1008 | 1010 |
| 3302 (mail-parse-ignored-charsets | 3304 (mail-parse-ignored-charsets |
| 3303 (save-excursion (set-buffer gnus-summary-buffer) | 3305 (save-excursion (set-buffer gnus-summary-buffer) |
| 3304 gnus-newsgroup-ignored-charsets))) | 3306 gnus-newsgroup-ignored-charsets))) |
| 3305 (or | 3307 (or |
| 3306 (and gnus-ignored-from-addresses | 3308 (and gnus-ignored-from-addresses |
| 3307 (not (string= gnus-ignored-from-addresses "")) | |
| 3308 (string-match gnus-ignored-from-addresses gnus-tmp-from) | 3309 (string-match gnus-ignored-from-addresses gnus-tmp-from) |
| 3309 (let ((extra-headers (mail-header-extra header)) | 3310 (let ((extra-headers (mail-header-extra header)) |
| 3310 to | 3311 to |
| 3311 newsgroups) | 3312 newsgroups) |
| 3312 (cond | 3313 (cond |