diff options
| author | Richard M. Stallman | 1999-01-18 02:32:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-01-18 02:32:36 +0000 |
| commit | dd5ee393a8c4dc4fb165a2c626837241cc8924c4 (patch) | |
| tree | f718cdaa2b16c122912937ea5d745b630aa10f35 | |
| parent | 5616ee4617092578abb2bd1fe98d4f1b03ce7d57 (diff) | |
| download | emacs-dd5ee393a8c4dc4fb165a2c626837241cc8924c4.tar.gz emacs-dd5ee393a8c4dc4fb165a2c626837241cc8924c4.zip | |
(rmail-quit): run `rmail-quit-hook'.
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 25380f17c59..f9f092f8679 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1022,9 +1022,12 @@ Instead, these commands are available: | |||
| 1022 | (rmail-select-summary (set-buffer-modified-p nil)))) | 1022 | (rmail-select-summary (set-buffer-modified-p nil)))) |
| 1023 | 1023 | ||
| 1024 | (defun rmail-quit () | 1024 | (defun rmail-quit () |
| 1025 | "Quit out of RMAIL." | 1025 | "Quit out of RMAIL. |
| 1026 | Hook `rmail-quit-hook' is run after expunging." | ||
| 1026 | (interactive) | 1027 | (interactive) |
| 1027 | (rmail-expunge-and-save) | 1028 | (rmail-expunge-and-save) |
| 1029 | (when (boundp 'rmail-quit-hook) | ||
| 1030 | (run-hooks 'rmail-quit-hook)) | ||
| 1028 | ;; Don't switch to the summary buffer even if it was recently visible. | 1031 | ;; Don't switch to the summary buffer even if it was recently visible. |
| 1029 | (when rmail-summary-buffer | 1032 | (when rmail-summary-buffer |
| 1030 | (replace-buffer-in-windows rmail-summary-buffer) | 1033 | (replace-buffer-in-windows rmail-summary-buffer) |