From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 08:39:55 +0000 (+0000)
Subject: (rmail-get-new-mail): Run rmail-before-get-new-mail-hook.
X-Git-Tag: emacs-19.34~313
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d08d73314668aa616faba3b1f73df5b797ff499;p=emacs.git

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

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e26563e6ab9..61cc9938870 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -891,6 +891,7 @@ It returns t if it got any new messages."
   (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))