procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-quit): run `rmail-quit-hook'.

Browse source
This commit is contained in:
Richard M. Stallman 1999-01-18 02:32:36 +00:00
parent 5616ee4617
commit dd5ee393a8
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/rmail.el
View file

@ -1022,9 +1022,12 @@ Instead, these commands are available:
(rmail-select-summary (set-buffer-modified-p nil))))
(defun rmail-quit ()
"Quit out of RMAIL."
"Quit out of RMAIL.
Hook `rmail-quit-hook' is run after expunging."
(interactive)
(rmail-expunge-and-save)
(when (boundp 'rmail-quit-hook)
(run-hooks 'rmail-quit-hook))
;; Don't switch to the summary buffer even if it was recently visible.
(when rmail-summary-buffer
(replace-buffer-in-windows rmail-summary-buffer)