From: yamaoka <yamaoka>
Date: Fri, 16 Feb 2001 05:38:52 +0000 (+0000)
Subject: * message.el (message-forward-subject-author-subject): Decode `From' field.
X-Git-Tag: t-gnus-6_15_0-09-quimby~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5bfc56731cd37055d36b70ab3f0716b37c7548f4;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 8b5af27..9aff3e0 100644
--- 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 08.
 
 	* lisp/gnus-sum.el (gnus-get-newsgroup-headers-xover): Don't use
diff --git a/lisp/message.el b/lisp/message.el
index e68ff3b..6ec6b2c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5216,9 +5216,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)