[Emacs-diffs] /srv/bzr/emacs/trunk r106389: Try to stop rmailedit destroying mime messages (bug#9840)

[Glenn Morris]

------------------------------------------------------------
revno: 106389
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-11-15 21:06:06 -0500
message:
  Try to stop rmailedit destroying mime messages (bug#9840)
  
  * lisp/mail/rmailedit.el: Require rmailmm when compiling.
  (rmail-old-mime-state): New declaration.
  (rmail-edit-current-message): If editing a mime message,
  edit the "raw" message from the mbox buffer.
  (rmail-cease-edit): Handle mime messages.
modified:
  lisp/ChangeLog
  lisp/mail/rmailedit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-15 23:36:54 +0000
+++ b/lisp/ChangeLog    2011-11-16 02:06:06 +0000
@@ -1,3 +1,11 @@
+2011-11-16  Glenn Morris  <address@hidden>
+
+       * mail/rmailedit.el: Require rmailmm when compiling.
+       (rmail-old-mime-state): New declaration.
+       (rmail-edit-current-message): If editing a mime message,
+       edit the "raw" message from the mbox buffer.
+       (rmail-cease-edit): Handle mime messages.  (Bug#9840)
+
 2011-11-15  Glenn Morris  <address@hidden>
 
        * mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg,

=== modified file 'lisp/mail/rmailedit.el'
--- a/lisp/mail/rmailedit.el    2011-01-25 04:08:28 +0000
+++ b/lisp/mail/rmailedit.el    2011-11-16 02:06:06 +0000
@@ -78,6 +78,7 @@
 
 
 (defvar rmail-old-text)
+(defvar rmail-old-mime-state)
 (defvar rmail-old-pruned nil
   "Non-nil means the message being edited originally had pruned headers.")
 (put 'rmail-old-pruned 'permanent-local t)
@@ -86,6 +87,10 @@
   "Holds the headers of this message before editing started.")
 (put 'rmail-old-headers 'permanent-local t)
 
+;; Everything we use from here is a defsubst.
+(eval-when-compile
+  (require 'rmailmm))
+
 ;;;###autoload
 (defun rmail-edit-current-message ()
   "Edit the contents of this message."
@@ -96,6 +101,28 @@
   (make-local-variable 'rmail-old-pruned)
   (setq rmail-old-pruned (rmail-msg-is-pruned))
   (rmail-edit-mode)
+  (set (make-local-variable 'rmail-old-mime-state)
+       (and rmail-enable-mime
+           ;; If you use something else, you are on your own.
+           (eq rmail-mime-feature 'rmailmm)
+           (rmail-mime-message-p)
+           (let ((entity (get-text-property (point-min) 'rmail-mime-entity)))
+             ;; rmailmm has got its hands on the message.
+             ;; Even if the message is in `raw' state, boundaries etc
+             ;; are still missing.  All we can do is insert the real
+             ;; raw message.  (Bug#9840)
+             (when (and entity
+                        (not (equal "text/plain"
+                                    (car (rmail-mime-entity-type entity)))))
+               (let ((inhibit-read-only t))
+                 (erase-buffer)
+                 (insert-buffer-substring
+                  rmail-view-buffer
+                  (aref (rmail-mime-entity-header entity) 0)
+                  (aref (rmail-mime-entity-body entity) 1)))
+               (goto-char (point-min))
+               ;; t = decoded; raw = raw.
+               (aref (aref (rmail-mime-entity-display entity) 0) 0)))))
   (make-local-variable 'rmail-old-text)
   (setq rmail-old-text
        (save-restriction
@@ -134,7 +161,10 @@
       (error "There must be a blank line at the end of the headers"))
   ;; Disguise any "From " lines so they don't start a new message.
   (goto-char (point-min))
-  (or rmail-old-pruned (forward-line 1))
+  ;; This tries to skip the mbox From.  FIXME less fragile to go to EOH?
+  (if (or rmail-old-mime-state
+         (not rmail-old-pruned))
+      (forward-line 1))
   (while (re-search-forward "^>*From " nil t)
     (beginning-of-line)
     (insert ">")
@@ -145,6 +175,7 @@
   (rmail-ensure-blank-line)
   (let ((old rmail-old-text)
        (pruned rmail-old-pruned)
+       (mime-state rmail-old-mime-state)
        ;; People who know what they are doing might have modified the
        ;; buffer's encoding if editing the message included inserting
        ;; characters that were unencodable by the original message's
@@ -256,7 +287,9 @@
 ;;;    (if (boundp 'rmail-summary-vector)
 ;;;    (aset rmail-summary-vector (1- rmail-current-message) nil))
     (rmail-show-message)
-    (rmail-toggle-header (if pruned 1 0)))
+    (rmail-toggle-header (if pruned 1 0))
+    ;; Restore mime display state.
+    (and mime-state (rmail-mime nil mime-state)))
   (run-hooks 'rmail-mode-hook))
 
 (defun rmail-abort-edit ()