[Emacs-diffs] /srv/bzr/emacs/trunk r100366: Decode RFC2047 encoded Subject lines for mail replies.

[Peter S Galbraith]

------------------------------------------------------------
revno: 100366
committer: Peter S Galbraith <address@hidden>
branch nick: trunk
timestamp: Wed 2010-05-19 08:23:40 -0400
message:
  Decode RFC2047 encoded Subject lines for mail replies.
modified:
  lisp/mh-e/ChangeLog
  lisp/mh-e/mh-comp.el
  lisp/mh-e/mh-mime.el

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2010-05-08 18:47:07 +0000
+++ b/lisp/mh-e/ChangeLog       2010-05-19 12:23:40 +0000
@@ -1,3 +1,10 @@
+2010-05-14  Peter S Galbraith  <address@hidden>
+
+       * mh-mime.el (mh-decode-message-subject): New function to decode
+       RFC2047 encoded Subject lines. Used for reply drafts.
+       * mh-comp.el (mh-compose-and-send-mail): Call
+       `mh-decode-message-subject' on (reply or forward) message drafts.
+
 2010-05-07  Chong Yidong  <address@hidden>
 
        * Version 23.2 released.

=== modified file 'lisp/mh-e/mh-comp.el'
--- a/lisp/mh-e/mh-comp.el      2010-01-13 08:35:10 +0000
+++ b/lisp/mh-e/mh-comp.el      2010-05-19 12:23:40 +0000
@@ -905,6 +905,9 @@
   (mh-identity-make-menu)
   (mh-identity-add-menu)
 
+  ;; Cleanup possibly RFC2047 encoded subject header
+  (mh-decode-message-subject)
+
   ;; Insert extra fields.
   (mh-insert-x-mailer)
   (mh-insert-x-face)

=== modified file 'lisp/mh-e/mh-mime.el'
--- a/lisp/mh-e/mh-mime.el      2010-01-13 08:35:10 +0000
+++ b/lisp/mh-e/mh-mime.el      2010-05-19 12:23:40 +0000
@@ -508,6 +508,15 @@
       (rfc2047-decode-region (point-min) (mh-mail-header-end)))))
 
 ;;;###mh-autoload
+(defun mh-decode-message-subject ()
+  "Decode RFC2047 encoded message header fields."
+  (when mh-decode-mime-flag
+    (save-excursion
+      (let ((buffer-read-only nil))
+        (rfc2047-decode-region (progn (mh-goto-header-field "subject:") 
(point))
+                               (progn (mh-header-field-end) (point)))))))
+
+;;;###mh-autoload
 (defun mh-mime-display (&optional pre-dissected-handles)
   "Display (and possibly decode) MIME handles.
 Optional argument, PRE-DISSECTED-HANDLES is a list of MIME