(gnus-picon-transform-address): Parse the encoded

address.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa4d062..cf77b81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-09  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-picon.el (gnus-picon-transform-address): Parse the encoded
+       address.
+
 2003-05-08  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-start.el (gnus-clear-system): added gnus-registry-alist to

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 188f071..9844b07 100644 (file)
--- 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>
@@ -151,7 +151,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))