diff options
| author | Richard M. Stallman | 1995-12-23 06:57:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-12-23 06:57:14 +0000 |
| commit | b5e10b2357dc19760d6f34e9909f189e5ef34205 (patch) | |
| tree | 575e45770e29444badcf4ed79b7d73877d9f488e | |
| parent | c7de13da485e91302bd27470a4a9f5013feb3d9f (diff) | |
| download | emacs-b5e10b2357dc19760d6f34e9909f189e5ef34205.tar.gz emacs-b5e10b2357dc19760d6f34e9909f189e5ef34205.zip | |
(rmail): Allow nonexistent file as arg.
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 3e9ed328d51..91ad7d783ff 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -282,8 +282,7 @@ have a chance to specify a file name with the minibuffer. | |||
| 282 | 282 | ||
| 283 | If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." | 283 | If `rmail-display-summary' is non-nil, make a summary for this RMAIL file." |
| 284 | (interactive (if current-prefix-arg | 284 | (interactive (if current-prefix-arg |
| 285 | (list (read-file-name "Run rmail on RMAIL file: " | 285 | (list (read-file-name "Run rmail on RMAIL file: ")))) |
| 286 | nil nil t)))) | ||
| 287 | (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) | 286 | (let* ((file-name (expand-file-name (or file-name-arg rmail-file-name))) |
| 288 | (existed (get-file-buffer file-name))) | 287 | (existed (get-file-buffer file-name))) |
| 289 | ;; Like find-file, but in the case where a buffer existed | 288 | ;; Like find-file, but in the case where a buffer existed |