From: yamaoka <yamaoka>
Date: Fri, 16 Feb 2001 05:38:30 +0000 (+0000)
Subject: * message.el (message-forward-subject-author-subject): Decode `From' field.
X-Git-Tag: t-gnus-6_14_6-04~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db4864eb815b2dd961df811cf398f2ae2e336d97;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 893b0a5..fc642cc 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 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
--- 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)