(message-forward-subject-name-subject): Decode

string when forwarding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80a9bdb..fefb716 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-forward-subject-name-subject): Decode
+       string when forwarding.
+
 2003-05-01  Oystein Viggen  <oysteivi@tihlde.org>
 
        * dgnushack.el (when): Add defadvice.

diff --git a/lisp/message.el b/lisp/message.el
index ae2f079..af5aed1 100644 (file)
--- 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