diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index ac2ce1ac0b4..78b0b0ed52c 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1198,13 +1198,20 @@ move to the previous message." (save-buffer)) (set-buffer-modified-p nil)) -(defun rmail-summary-get-new-mail () - "Get new mail and recompute summary headers." - (interactive) +(defun rmail-summary-get-new-mail (&optional file-name) + "Get new mail and recompute summary headers. + +Optionally you can 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 says to read a file name and use that file as the inbox." + (interactive + (list (if current-prefix-arg + (read-file-name "Get new mail from file: ")))) (let (msg) (save-excursion (set-buffer rmail-buffer) - (rmail-get-new-mail) + (rmail-get-new-mail file-name) ;; Get the proper new message number. (setq msg rmail-current-message)) ;; Make sure that message is displayed. |