Decode "encoded-words" of header components on replying.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d8446cef10f709cda72269be3d2449eab8b97f1..65b4ec8d400e65d36e9831a83aa753e5fa95e5ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-21  Kenichi Handa  <handa@m17n.org>
+
+       * mail/rmail.el (rmail-start-mail): Decode "encoded-words" of
+       header components.
+
 2011-02-14  Chong Yidong  <cyd@stupidchicken.com>
 
        * pgg-gpg.el (pgg-gpg-process-region): Bind

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 370999dabf85319ac43f5b2b49ceef5b277b0a73..94f5ce450544c6d06d94919b52058f9b853a2862 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3449,6 +3449,16 @@ does not pop any summary buffer."
        (setq yank-action (list 'insert-buffer replybuffer)))
     (setq others (cons (cons "cc" cc) others))
     (setq others (cons (cons "in-reply-to" in-reply-to) others))
+    (setq others
+         (mapcar #'(lambda (elt)
+                     (cons (car elt) (if (stringp (cdr elt))
+                                         (rfc2047-decode-string (cdr elt)))))
+                 others))
+    (if (stringp to) (setq to (rfc2047-decode-string to)))
+    (if (stringp in-reply-to)
+       (setq in-reply-to (rfc2047-decode-string in-reply-to)))
+    (if (stringp cc) (setq cc (rfc2047-decode-string cc)))
+    (if (stringp subject) (setq subject (rfc2047-decode-string subject)))
     (if same-window
        (compose-mail to subject others
                      noerase nil