projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dda4b1d
)
Synch to No Gnus 200403250813.
author
yamaoka
<yamaoka>
Thu, 25 Mar 2004 08:14:10 +0000
(08:14 +0000)
committer
yamaoka
<yamaoka>
Thu, 25 Mar 2004 08:14:10 +0000
(08:14 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-art.el
patch
|
blob
|
history
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_.
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
(file)
--- 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")
(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)
(while (setq face (pop faces))
(let ((png (gnus-convert-face-to-png face))
image)