diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2011-12-31 12:06:21 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2011-12-31 12:06:21 +0200 |
| commit | 8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c (patch) | |
| tree | 547067b208882c2eee436f9f12777d798cb69219 /lisp/mail/rmail.el | |
| parent | 4baa020dd90f2925db503a92a0ab71cc49ddc89a (diff) | |
| download | emacs-8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c.tar.gz emacs-8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c.tar.bz2 emacs-8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c.zip | |
Decode message headers of non-MIME messages in Rmail.
lisp/mail/rmail.el (rmail-show-message-1): Decode any RFC2047 encoded
headers of non-MIME messages, when rmail-enable-mime is non-nil.
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1ea01bdadb8..2c94cfdf212 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2773,7 +2773,15 @@ The current mail message becomes the message displayed." (forward-line)) (goto-char (point-min))) ;; Copy the headers to the front of the message view buffer. - (rmail-copy-headers beg end)) + (rmail-copy-headers beg end) + ;; Decode any RFC2047 encoded message headers. + (if rmail-enable-mime + (with-current-buffer rmail-view-buffer + (rfc2047-decode-region + (point-min) + (progn + (search-forward "\n\n" nil 'move) + (point)))))) ;; highlight the message, activate any URL like text and add ;; special highlighting for and quoted material. (with-current-buffer rmail-view-buffer |