* gnus-fun.el (gnus-display-x-face-in-from): Fake a "From: "

header if there is not.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a9e748..4e789fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-fun.el (gnus-display-x-face-in-from): Fake a "From: "
+       header if there is not.
+
        * gnus-xmas.el (gnus-xmas-put-image): Insert " " if bobp.
 
        * gnus-msg.el (gnus-gcc-mark-as-read): New variable.

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 978bccf..876b5e7 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -176,6 +176,9 @@ colors of the displayed X-Faces."
        (save-restriction
          (article-narrow-to-head)
          (gnus-article-goto-header "from")
+         (when (bobp) 
+           (insert "From: \n")
+           (forward-char -2))
          (gnus-add-image
           'xface
           (gnus-put-image