procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Kenichi Handa 2011-02-22 09:19:08 +09:00
parent dbc0543206
commit 1f459fa46c
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

10
lisp/mail/rmail.el
View file

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