mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(rmail-summary-get-new-mail):

Browse Source 
Handle args like rmail-get-new-mail, and pass them to that function.
This commit is contained in:
Richard M. Stallman 1997-08-27 16:18:29 +00:00
parent 1faf29d432
commit 3198a3d590
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/mail/rmailsum.el
View File

@ -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.