diff options
| author | Richard M. Stallman | 1996-06-28 08:39:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-28 08:39:55 +0000 |
| commit | 1d08d73314668aa616faba3b1f73df5b797ff499 (patch) | |
| tree | f00e8aed8fe3f113468fd46ee4878d48d959be40 | |
| parent | a8f34fc08311490bd11db6f05d7fd1ee376adb2e (diff) | |
| download | emacs-1d08d73314668aa616faba3b1f73df5b797ff499.tar.gz emacs-1d08d73314668aa616faba3b1f73df5b797ff499.zip | |
(rmail-get-new-mail): Run rmail-before-get-new-mail-hook.
| -rw-r--r-- | lisp/mail/rmail.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e26563e6ab9..61cc9938870 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -891,6 +891,7 @@ It returns t if it got any new messages." | |||
| 891 | (interactive | 891 | (interactive |
| 892 | (list (if current-prefix-arg | 892 | (list (if current-prefix-arg |
| 893 | (read-file-name "Get new mail from file: ")))) | 893 | (read-file-name "Get new mail from file: ")))) |
| 894 | (run-hooks 'rmail-before-get-new-mail-hook) | ||
| 894 | ;; If the disk file has been changed from under us, | 895 | ;; If the disk file has been changed from under us, |
| 895 | ;; revert to it before we get new mail. | 896 | ;; revert to it before we get new mail. |
| 896 | (or (verify-visited-file-modtime (current-buffer)) | 897 | (or (verify-visited-file-modtime (current-buffer)) |