Mercurial > emacs
changeset 8701:f3567d21b4e9
(rmail-get-new-mail): Run rmail-get-new-mail-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Sep 1994 00:10:56 +0000 |
| parents | c9b81faf1b2a |
| children | 097fe97274e9 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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