From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 7 Apr 1994 06:56:25 +0000 (+0000)
Subject: (rmail-edit-mode, rmail-cease-edit): Disable summary during edit.
X-Git-Tag: emacs-19.34~9129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c35fb2162d15282de38c19f7b8bbfdce727b784b;p=emacs.git

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

diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el
index 700990dadd5..9d084d0aeeb 100644
--- 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))