(article-display-face): Correct the position in which Faces are inserted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ac979e..f5275fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (article-display-face): Correct the position in
+       which Faces are inserted.
+
 2005-06-29  Didier Verna  <didier@xemacs.org>
 
        * gnus-art.el (article-display-face): display faces in correct

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7eab0cc..52fd833 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2162,7 +2162,8 @@ unfolded."
       ;; read-only.
       (if (and wash-face-p (memq 'face gnus-article-wash-types))
          (gnus-delete-images 'face)
-       (let (face faces)
+       (let ((from (gnus-article-goto-header "from"))
+             face faces)
          (save-excursion
            (when (and wash-face-p
                       (progn
@@ -2173,22 +2174,23 @@ unfolded."
            (save-restriction
              (mail-narrow-to-head)
              (while (gnus-article-goto-header "Face")
-               (setq faces (push (mail-header-field-value) faces)))))
-         (dolist (face faces)
-           (let ((png (gnus-convert-face-to-png face))
-                 image)
-             (when png
-               (setq image
-                     (apply 'gnus-create-image png 'png t
-                            (cdr (assq 'png gnus-face-properties-alist))))
-               (gnus-article-goto-header "from")
-               (when (bobp)
-                 (insert "From: [no `from' set]\n")
-                 (forward-char -17))
-               (gnus-add-wash-type 'face)
-               (gnus-add-image 'face image)
-               (gnus-put-image image nil 'face))))))
-      )))
+               (push (mail-header-field-value) faces))))
+         (when faces
+           (unless from
+             (insert "From:")
+             (setq from (point))
+             (insert "[no `from' set]\n"))
+           (dolist (face faces)
+             (let ((png (gnus-convert-face-to-png face))
+                   image)
+               (when png
+                 (setq image
+                       (apply 'gnus-create-image png 'png t
+                              (cdr (assq 'png gnus-face-properties-alist))))
+                 (goto-char from)
+                 (gnus-add-wash-type 'face)
+                 (gnus-add-image 'face image)
+                 (gnus-put-image image nil 'face))))))))))
 
 (defun article-display-x-face (&optional force)
   "Look for an X-Face header and display it if present."