From 3f8329904865e576f8046a203db287b018094759 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Thu, 8 May 2003 23:02:20 +0000 Subject: [PATCH] (gnus-picon-transform-address): Parse the encoded address. --- lisp/ChangeLog | 5 +++++ lisp/gnus-picon.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fa4d06203..cf77b8180 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-05-09 Jesper Harder + + * gnus-picon.el (gnus-picon-transform-address): Parse the encoded + address. + 2003-05-08 Teodor Zlatanov * gnus-start.el (gnus-clear-system): added gnus-registry-alist to diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el index 188f07168..9844b0753 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 @@ -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)) -- 2.34.1