Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-picon.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 360340f9fd5f
children b980b6286996
line wrap: on
line diff
--- a/lisp/gnus/gnus-picon.el	Mon Aug 13 09:24:19 2007 +0200
+++ b/lisp/gnus/gnus-picon.el	Mon Aug 13 09:25:29 2007 +0200
@@ -218,7 +218,7 @@
 			 (if gnus-local-domain
 			     (nreverse (message-tokenize-header
 					gnus-local-domain "."))
-			   '(""))
+			   '("."))
 		       (nreverse (message-tokenize-header
 				  (substring from (1+ at-idx)) ".")))))
 	  (set-buffer (get-buffer-create
@@ -347,7 +347,7 @@
 	(domainp (and gnus-picons-display-as-address dots))
 	picons found bar-ann cur first)
     (when (string-match "/MISC" database)
-      (setq addrs '("")))
+      (setq addrs '(".")))
     (while (and addrs
 		(file-accessible-directory-p path))
       (setq cur (pop addrs)