diff options
| author | Kenichi Handa <handa@m17n.org> | 2011-02-22 10:49:06 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2011-02-22 10:49:06 +0900 |
| commit | 251ebe0f6446248399e2820a291365a33f0ead8b (patch) | |
| tree | f7087f53e0cf94b4ac067532a6e24626a72c78d1 /lisp | |
| parent | 47301027bbbbd1babcfedf1ef38b2c776b33c462 (diff) | |
| download | emacs-251ebe0f6446248399e2820a291365a33f0ead8b.tar.gz | |
In rmail, decode "encoded-words" of header components on replying.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0c9f552c9f..a70330d1022 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +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 diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index fc4b642e8bb..5e9baed1c2e 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 |