From 1f459fa46cbd419bc55f8be03bce617d96af4da5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 22 Feb 2011 09:19:08 +0900 Subject: [PATCH] Decode "encoded-words" of header components on replying. --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail.el | 10 ++++++++++ 2 files changed, 15 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9d8446cef10..65b4ec8d400 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-21 Kenichi Handa + + * mail/rmail.el (rmail-start-mail): Decode "encoded-words" of + header components. + 2011-02-14 Chong Yidong * pgg-gpg.el (pgg-gpg-process-region): Bind diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 370999dabf8..94f5ce45054 100644 --- 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 -- 2.39.2