X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-picon.el;h=8fed51ff77c48e9a97f25ad941b3b8c9882283b3;hb=958fdccf869df15ec1a6946b2fbb2661bf7362e3;hp=ae2d10788594117e26666fbebe1fea0110d704b2;hpb=49d38b41c190eaab2cb34294fac7302a9c9ea353;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index ae2d107..8fed51f 100644
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -1,6 +1,6 @@
 ;;; gnus-picon.el --- displaying pretty icons in Gnus
 
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
 ;;      Free Software Foundation, Inc.
 
 ;; Author: Wes Hardaker <hardaker@ece.ucdavis.edu>
@@ -153,7 +153,11 @@ GLYPH can be either a glyph or a string."
 (defun gnus-picon-transform-address (header category)
   (gnus-with-article-headers
     (let ((addresses
-	   (mail-header-parse-addresses (mail-fetch-field header)))
+	   (mail-header-parse-addresses
+	    ;; mail-header-parse-addresses does not work (reliably) on
+	    ;; decoded headers.
+	    (mail-encode-encoded-word-string
+	     (or (mail-fetch-field header) ""))))
 	  spec file point cache)
       (dolist (address addresses)
 	(setq address (car address))