From 5bfc56731cd37055d36b70ab3f0716b37c7548f4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Feb 2001 05:38:52 +0000 Subject: [PATCH] * message.el (message-forward-subject-author-subject): Decode `From' field. --- ChangeLog | 5 +++++ lisp/message.el | 10 +++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8b5af27..9aff3e0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2001-02-16 Katsumi Yamaoka + * lisp/message.el (message-forward-subject-author-subject): Decode + `From' field. + +2001-02-16 Katsumi Yamaoka + * 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) -- 1.7.10.4