# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778723856 0
# Node ID f3567d21b4e9db96ae755edc4690620d2ebc9106
# Parent  c9b81faf1b2a023edb4b6de8c7e627f3443cc91d
(rmail-get-new-mail): Run rmail-get-new-mail-hook.

diff -r c9b81faf1b2a -r f3567d21b4e9 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Sep 04 07:02:34 1994 +0000
+++ b/lisp/mail/rmail.el	Mon Sep 05 00:10:56 1994 +0000
@@ -732,7 +732,9 @@
 You can also specify the file to get new mail from.  In this case, the
 file of new mail is not changed or deleted.  Noninteractively, you can
 pass the inbox file name as an argument.  Interactively, a prefix
-argument causes us to read a file name and use that file as the inbox."
+argument causes us to read a file name and use that file as the inbox.
+
+This function runs `rmail-get-new-mail-hook' before saving the updated file."
   (interactive
    (list (if current-prefix-arg
 	     (read-file-name "Get new mail from file: "))))
@@ -780,6 +782,7 @@
 		  (narrow-to-region (point) (point-max))
 		  (goto-char (1+ (point-min)))
 		  (rmail-count-new-messages)
+		  (run-hooks 'rmail-get-new-mail-hook)
 		  (save-buffer)))
 	    ;; Delete the old files, now that babyl file is saved.
 	    (while delete-files