Reverted last change for a better fix:

	* gnus-sum.el (gnus-ignored-from-addresses): Handle case where
	user-mail-name is an empty string.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3e82ae07120b92506b479221ec99044779a7f937..ee4c34d9444f13a2c8a1d372a742b4ac13349507 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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)
 

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 3bcbf82d93cc5b03d879137d94cc2b3b9cb9fdd6..51f03061d4f35f4edec3da4cd4dcc446cccc2080 100644 (file)
--- 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