(rmail-edit-mode, rmail-cease-edit): Disable summary during edit.

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 700990dadd592b761b022fd65f9c8393d6a09641..9d084d0aeebddf412e48d10640480f9d1c29a360 100644 (file)
--- a/lisp/mail/rmailedit.el
+++ b/lisp/mail/rmailedit.el
@@ -50,6 +50,8 @@ to return to regular RMAIL:
   (if (boundp 'mode-line-modified)
       (setq mode-line-modified (default-value 'mode-line-modified))
     (setq mode-line-format (default-value 'mode-line-format)))
+  (if (rmail-summary-exists)
+      (rmail-summary-disable))
   (run-hooks 'text-mode-hook 'rmail-edit-mode-hook))
 
 (defun rmail-edit-current-message ()
@@ -71,6 +73,8 @@ to return to regular RMAIL:
 (defun rmail-cease-edit ()
   "Finish editing message; switch back to Rmail proper."
   (interactive)
+  (if (rmail-summary-exists)
+      (rmail-summary-enable))
   ;; Make sure buffer ends with a newline.
   (save-excursion
     (goto-char (point-max))