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

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c0a3a22002f..73903f10203 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -732,7 +732,9 @@ your /usr/spool/mail/$USER.
 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 @@ argument causes us to read a file name and use that file as the inbox."
                   (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