# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872698709 0
# Node ID a2a72d1e0970b314737a67d86cc1e609e27ddec8
# Parent  2f471f36f4f4e97182c57f164fd974508f059336
(rmail-summary-get-new-mail):
Handle args like rmail-get-new-mail, and pass them to that function.

diff -r 2f471f36f4f4 -r a2a72d1e0970 lisp/mail/rmailsum.el
--- 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.