Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-picon.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/gnus/gnus-picon.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/gnus/gnus-picon.el	Mon Aug 13 08:46:35 2007 +0200
@@ -211,8 +211,9 @@
     (when (and (featurep 'xpm) 
 	       (or (not (fboundp 'device-type)) (equal (device-type) 'x))
 	       (setq from (mail-fetch-field "from"))
-	       (setq from (downcase (cadr (mail-extract-address-components
-					   from)))
+	       (setq from (downcase (or (cadr (mail-extract-address-components
+					       from))
+					""))
 		     at-idx (string-match "@" from)))
       (save-excursion
 	(let ((username (substring from 0 at-idx))