Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 68940:808f636eb13e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-93 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 30-34) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 17 Feb 2006 00:24:04 +0000
parents d9dde5b81e71
children 5e2a9bb28073
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Fri Feb 17 00:23:58 2006 +0000
+++ b/lisp/gnus/gnus-art.el	Fri Feb 17 00:24:04 2006 +0000
@@ -2608,6 +2608,9 @@
 	  (article-really-strip-banner
 	   (gnus-parameter-banner gnus-newsgroup-name)))
 	(when gnus-article-address-banner-alist
+	  ;; Note that the From header is decoded here, so it is
+	  ;; required that the *-extract-address-components function
+	  ;; supports non-ASCII text.
 	  (article-really-strip-banner
 	   (let ((from (save-restriction
 			 (widen)
@@ -2615,7 +2618,8 @@
 			 (mail-fetch-field "from"))))
 	     (when (and from
 			(setq from
-			      (caar (mail-header-parse-addresses from))))
+			      (cadr (funcall gnus-extract-address-components
+					     from))))
 	       (catch 'found
 		 (dolist (pair gnus-article-address-banner-alist)
 		   (when (string-match (car pair) from)