From 6bd154b457ff75034a23f1ed17d77c9b4be5e45d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 1 May 2003 13:13:04 +0000 Subject: [PATCH] (message-forward-subject-name-subject): Decode string when forwarding. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 80a9bdb12..fefb71606 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-05-01 Lars Magne Ingebrigtsen + + * message.el (message-forward-subject-name-subject): Decode + string when forwarding. + 2003-05-01 Oystein Viggen * dgnushack.el (when): Add defadvice. diff --git a/lisp/message.el b/lisp/message.el index ae2f07903..af5aed1e5 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -5858,7 +5858,9 @@ news, Source is the list of newsgroups is was posted to." (let ((prefix (or (message-fetch-field "newsgroups") (cdr - (mail-header-parse-address (message-fetch-field "from"))) + (mail-header-parse-address + (mail-decode-encoded-word-string + (message-fetch-field "from")))) "(nowhere)"))) (if message-forward-decoded-p prefix -- 2.34.1