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.

2 files changed, 43 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 387afa667fe..384e7f276dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2011-11-16  Glenn Morris  <rgm@gnu.org>
+
+        * 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  <rgm@gnu.org>
 
         * mail/rmailmm.el (rmail-mime-toggle-raw): Remove entity arg,
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 868ca15923f..7e70f66ef11 100644
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -78,6 +78,7 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
 
 
 (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 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
   "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 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
   (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 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
       (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 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
   (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 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
 ;;;    (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 ()