From: Richard M. Stallman Date: Tue, 27 Feb 1996 22:41:49 +0000 (+0000) Subject: (rmail-get-new-mail): Run rmail-after-get-new-mail-hook. X-Git-Tag: emacs-19.34~1161 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f5c586ac0be536917a6efb6f63cf3e68ccd57ab;p=emacs.git (rmail-get-new-mail): Run rmail-after-get-new-mail-hook. --- 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." ;; Move to the first new message ;; unless we have other unseen messages before it. (rmail-show-message (rmail-first-unseen-message)) + (run-hooks 'rmail-after-get-new-mail-hook) t)) ;; Don't leave the buffer screwed up if we get a disk-full error. (rmail-show-message)))