Mercurial > emacs
changeset 19570:a2a72d1e0970
(rmail-summary-get-new-mail):
Handle args like rmail-get-new-mail, and pass them to that function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Aug 1997 16:18:29 +0000 |
| parents | 2f471f36f4f4 |
| children | 28ab022089b2 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Wed Aug 27 15:53:09 1997 +0000 +++ b/lisp/mail/rmailsum.el Wed Aug 27 16:18:29 1997 +0000 @@ -1198,13 +1198,20 @@ (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.