From: yamaoka <yamaoka>
Date: Thu, 25 Mar 2004 08:14:10 +0000 (+0000)
Subject: Synch to No Gnus 200403250813.
X-Git-Tag: t-gnus-6_17_4-quimby-~995
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ed9de173dace2b66de4d69d484ec44f26d8f435;p=elisp%2Fgnus.git-

Synch to No Gnus 200403250813.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5a76d5..1ccbef3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-art.el (article-display-face): Display Faces in the same
+	order as X-Faces.
+
 2004-03-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nndoc.el (nndoc-forward-type-p): Recognize envelope From_.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8173c11..99288aa 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2203,7 +2203,7 @@ unfolded."
 	    (save-restriction
 	      (mail-narrow-to-head)
 	      (while (gnus-article-goto-header "Face")
-		(push (mail-header-field-value) faces))))
+		(setq faces (nconc faces (list (mail-header-field-value)))))))
 	  (while (setq face (pop faces))
 	    (let ((png (gnus-convert-face-to-png face))
 		  image)