1000 |
:type '(repeat symbol)) |
:type '(repeat symbol)) |
1001 |
|
|
1002 |
(defcustom gnus-ignored-from-addresses |
(defcustom gnus-ignored-from-addresses |
1003 |
(and user-mail-address (regexp-quote user-mail-address)) |
(and user-mail-address |
1004 |
|
(not (string= user-mail-address "")) |
1005 |
|
(regexp-quote user-mail-address)) |
1006 |
"*Regexp of From headers that may be suppressed in favor of To headers." |
"*Regexp of From headers that may be suppressed in favor of To headers." |
1007 |
:version "21.1" |
:version "21.1" |
1008 |
:group 'gnus-summary |
:group 'gnus-summary |
3306 |
gnus-newsgroup-ignored-charsets))) |
gnus-newsgroup-ignored-charsets))) |
3307 |
(or |
(or |
3308 |
(and gnus-ignored-from-addresses |
(and gnus-ignored-from-addresses |
|
(not (string= gnus-ignored-from-addresses "")) |
|
3309 |
(string-match gnus-ignored-from-addresses gnus-tmp-from) |
(string-match gnus-ignored-from-addresses gnus-tmp-from) |
3310 |
(let ((extra-headers (mail-header-extra header)) |
(let ((extra-headers (mail-header-extra header)) |
3311 |
to |
to |