mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-04-07 06:56:25 +00:00
parent 880f22a14a
commit c35fb2162d
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmailedit.el
View file

@ -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))