# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825460909 0
# Node ID e7f7883b92776e3a3090f972ac3b09eebfebf7ba
# Parent  87d459e75dadf257a02411f90edfa750705ca95b
(rmail-get-new-mail): Run rmail-after-get-new-mail-hook.

diff -r 87d459e75dad -r e7f7883b9277 lisp/mail/rmail.el
--- 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)))