[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100495: In rmail, decode "encoded-words" of header components on replying.

[Kenichi Handa]

------------------------------------------------------------
revno: 100495 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: emacs-23
timestamp: Tue 2011-02-22 10:51:43 +0900
message:
  In rmail, decode "encoded-words" of header components on replying.
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-19 09:22:24 +0000
+++ b/lisp/ChangeLog    2011-02-22 01:49:06 +0000
@@ -1,3 +1,8 @@
+2011-02-22  Kenichi Handa  <address@hidden>
+
+       * mail/rmail.el (rmail-start-mail): Decode "encoded-words" of
+       header components.
+
 2011-02-19  Kenichi Handa  <address@hidden>
 
        * mail/rmailmm.el (rmail-mime-find-header-encoding): Be sure to

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2011-02-19 09:22:24 +0000
+++ b/lisp/mail/rmail.el        2011-02-22 01:49:06 +0000
@@ -3449,6 +3449,16 @@
        (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