From 7cd9f860a99995cf28d7bf956cac2229a142efa6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 23 Oct 2005 16:29:35 +0000 Subject: [PATCH] Reverted last change for a better fix: * gnus-sum.el (gnus-ignored-from-addresses): Handle case where user-mail-name is an empty string. --- lisp/gnus/ChangeLog | 4 ++-- lisp/gnus/gnus-sum.el | 5 +++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3e82ae07120..ee4c34d9444 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,7 +1,7 @@ 2005-10-23 Chong Yidong - * 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 (tiny change) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 3bcbf82d93c..51f03061d4f 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1000,7 +1000,9 @@ which it may alter in any way." :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 @@ buffer that was in action when the last article was fetched." 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 -- 2.39.5