From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Aug 1997 16:18:29 +0000 (+0000)
Subject: (rmail-summary-get-new-mail):
X-Git-Tag: emacs-20.1~378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3198a3d5909da33ca4e6356055e964a3f2c863b5;p=emacs.git

(rmail-summary-get-new-mail):
Handle args like rmail-get-new-mail, and pass them to that function.
---

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.