From c35fb2162d15282de38c19f7b8bbfdce727b784b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 7 Apr 1994 06:56:25 +0000 Subject: [PATCH] (rmail-edit-mode, rmail-cease-edit): Disable summary during edit. --- lisp/mail/rmailedit.el | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 2.11.4.GIT