diff options
| author | Eli Zaretskii | 2011-12-31 12:06:21 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2011-12-31 12:06:21 +0200 |
| commit | 8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c (patch) | |
| tree | 547067b208882c2eee436f9f12777d798cb69219 /lisp/mail | |
| parent | 4baa020dd90f2925db503a92a0ab71cc49ddc89a (diff) | |
| download | emacs-8d43f3cd8a2585eef72bedd0061dd8c1d66ae17c.tar.gz 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')
| -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." | |||
| 2773 | (forward-line)) | 2773 | (forward-line)) |
| 2774 | (goto-char (point-min))) | 2774 | (goto-char (point-min))) |
| 2775 | ;; Copy the headers to the front of the message view buffer. | 2775 | ;; Copy the headers to the front of the message view buffer. |
| 2776 | (rmail-copy-headers beg end)) | 2776 | (rmail-copy-headers beg end) |
| 2777 | ;; Decode any RFC2047 encoded message headers. | ||
| 2778 | (if rmail-enable-mime | ||
| 2779 | (with-current-buffer rmail-view-buffer | ||
| 2780 | (rfc2047-decode-region | ||
| 2781 | (point-min) | ||
| 2782 | (progn | ||
| 2783 | (search-forward "\n\n" nil 'move) | ||
| 2784 | (point)))))) | ||
| 2777 | ;; highlight the message, activate any URL like text and add | 2785 | ;; highlight the message, activate any URL like text and add |
| 2778 | ;; special highlighting for and quoted material. | 2786 | ;; special highlighting for and quoted material. |
| 2779 | (with-current-buffer rmail-view-buffer | 2787 | (with-current-buffer rmail-view-buffer |