changeset 14699:e7f7883b9277

(rmail-get-new-mail): Run rmail-after-get-new-mail-hook.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 Feb 1996 22:41:49 +0000
parents 87d459e75dad
children 49f7a84c9837
files lisp/mail/rmail.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Feb 27 17:44:45 1996 +0000
+++ b/lisp/mail/rmail.el	Tue Feb 27 22:41:49 1996 +0000
@@ -943,6 +943,7 @@
 	  ;; 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)))