mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail): Allow nonexistent file as arg.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-12-23 06:57:14 +00:00
parent c7de13da48
commit b5e10b2357
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/mail/rmail.el
View File

@ -282,8 +282,7 @@ have a chance to specify a file name with the minibuffer.
If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
(interactive (if current-prefix-arg
(list (read-file-name "Run rmail on RMAIL file: "
nil nil t))))
(list (read-file-name "Run rmail on RMAIL file: "))))
(let* ((file-name (expand-file-name (or file-name-arg rmail-file-name)))
(existed (get-file-buffer file-name)))
;; Like find-file, but in the case where a buffer existed