(rmail-get-new-mail): Run rmail-after-get-new-mail-hook.

aquamacs-emacs · Feb 27, 1996 · ec3adf8 · ec3adf8
1 parent 47afe4c
commit ec3adf8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)))