Mercurial > emacs

changeset 6723:6ff74185a672

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-edit-mode, rmail-cease-edit): Disable summary during edit.
author Karl Heuer <kwzh@gnu.org>
date Thu, 07 Apr 1994 06:56:25 +0000
parents dd74576b79f6
children 6728ad7f85e9
files lisp/mail/rmailedit.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el	Thu Apr 07 04:37:03 1994 +0000
+++ b/lisp/mail/rmailedit.el	Thu Apr 07 06:56:25 1994 +0000
@@ -50,6 +50,8 @@
   (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 @@
 (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))