# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835951195 0
# Node ID 212868acf99e9b7c146a8f9b5b7aa93b0c15fa64
# Parent  ec7e7b99c680443e1d23fb04cd393071970ed28c
(rmail-get-new-mail): Run rmail-before-get-new-mail-hook.

diff -r ec7e7b99c680 -r 212868acf99e lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jun 28 08:28:51 1996 +0000
+++ b/lisp/mail/rmail.el	Fri Jun 28 08:39:55 1996 +0000
@@ -891,6 +891,7 @@
   (interactive
    (list (if current-prefix-arg
 	     (read-file-name "Get new mail from file: "))))
+  (run-hooks 'rmail-before-get-new-mail-hook)
   ;; If the disk file has been changed from under us,
   ;; revert to it before we get new mail.
   (or (verify-visited-file-modtime (current-buffer))