In rmail, decode "encoded-words" of header components on replying.

251ebe0f · Kenichi Handa · 47301027 · 251ebe0f · 251ebe0f
Commit 251ebe0f authored Feb 22, 2011 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/mail/rmail.el lisp/mail/rmail.el +10 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2011-02-22  Kenichi Handa  <handa@m17n.org>
+
+	* mail/rmail.el (rmail-start-mail): Decode "encoded-words" of
+	header components.
+
 2011-02-19  Kenichi Handa  <handa@m17n.org>

 	* mail/rmailmm.el (rmail-mime-find-header-encoding): Be sure to

--- 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