(article-display-face): Display Faces in the same order as X-Faces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5a76d5..1ccbef3 100644 (file)
--- 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 0b32e9e..f776b0d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2058,7 +2058,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)