diff options
| author | Richard M. Stallman | 1996-02-27 22:41:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-27 22:41:49 +0000 |
| commit | 4f5c586ac0be536917a6efb6f63cf3e68ccd57ab (patch) | |
| tree | d25e4169a5f390089f2b57db2504dff56a57fcfb | |
| parent | 243dfffb77a01499d52e76409c5aba8b97527364 (diff) | |
| download | emacs-4f5c586ac0be536917a6efb6f63cf3e68ccd57ab.tar.gz emacs-4f5c586ac0be536917a6efb6f63cf3e68ccd57ab.zip | |
(rmail-get-new-mail): Run rmail-after-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 ffb016917ea..a8efb765c13 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -943,6 +943,7 @@ It returns t if it got any new messages." | |||
| 943 | ;; Move to the first new message | 943 | ;; Move to the first new message |
| 944 | ;; unless we have other unseen messages before it. | 944 | ;; unless we have other unseen messages before it. |
| 945 | (rmail-show-message (rmail-first-unseen-message)) | 945 | (rmail-show-message (rmail-first-unseen-message)) |
| 946 | (run-hooks 'rmail-after-get-new-mail-hook) | ||
| 946 | t)) | 947 | t)) |
| 947 | ;; Don't leave the buffer screwed up if we get a disk-full error. | 948 | ;; Don't leave the buffer screwed up if we get a disk-full error. |
| 948 | (rmail-show-message))) | 949 | (rmail-show-message))) |