changeset 15549:212868acf99e

(rmail-get-new-mail): Run rmail-before-get-new-mail-hook.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 Jun 1996 08:39:55 +0000
parents ec7e7b99c680
children 4df6e0ffab90
files lisp/mail/rmail.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))