From 3198a3d5909da33ca4e6356055e964a3f2c863b5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Aug 1997 16:18:29 +0000 Subject: [PATCH] (rmail-summary-get-new-mail): Handle args like rmail-get-new-mail, and pass them to that function. --- lisp/mail/rmailsum.el | 15 +++++++++++---- 1 file 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. -- 2.39.5