[Emacs-diffs] /srv/bzr/emacs/trunk r106753: Decode message headers of non-MIME messages in Rmail.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106753
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2011-12-31 12:06:21 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-29 13:12:18 +0000
+++ b/lisp/ChangeLog    2011-12-31 10:06:21 +0000
@@ -1,3 +1,8 @@
+2011-12-31  Eli Zaretskii  <address@hidden>
+
+       * mail/rmail.el (rmail-show-message-1): Decode any RFC2047 encoded
+       headers of non-MIME messages, when rmail-enable-mime is non-nil.
+
 2011-12-29  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-find-shell): Set "remote-shell" property

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2011-12-19 11:21:17 +0000
+++ b/lisp/mail/rmail.el        2011-12-31 10:06:21 +0000
@@ -2773,7 +2773,15 @@
              (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