* message.el (message-forward-subject-author-subject): Decode `From' field.

diff --git a/ChangeLog b/ChangeLog
index 893b0a5..fc642cc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-02-16  Katsumi Yamaoka <yamaoka@jpl.org>
 
+       * lisp/message.el (message-forward-subject-author-subject): Decode
+       `From' field.
+
+2001-02-16  Katsumi Yamaoka <yamaoka@jpl.org>
+
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 03.
 
        * lisp/gnus-sum.el (gnus-get-newsgroup-headers-xover): Don't use

diff --git a/lisp/message.el b/lisp/message.el
index c4f86ac..8039903 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5018,9 +5018,13 @@ The form is: [Source] Subject, where if the original message was mail,
 Source is the sender, and if the original message was news, Source is
 the list of newsgroups is was posted to."
   (concat "["
-         (or (message-fetch-field
-              (if (message-news-p) "newsgroups" "from"))
-             "(nowhere)")
+         (if (message-news-p)
+             (or (message-fetch-field "newsgroups")
+                 "(nowhere)")
+           (let ((from (message-fetch-field "from")))
+             (if from
+                 (nnheader-decode-from from)
+               "(nobody)")))
          "] " subject))
 
 (defun message-forward-subject-fwd (subject)