diff options
| author | Richard M. Stallman | 1994-01-01 08:31:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-01 08:31:33 +0000 |
| commit | 5cb1595fb3d9ec9b63ef322d3750aba9320331f7 (patch) | |
| tree | 62dac166f96b3c0c6c442a351574d45c67b6be44 | |
| parent | 5625c2fc22b4fc88870291c1ecb2e4c58208a509 (diff) | |
| download | emacs-5cb1595fb3d9ec9b63ef322d3750aba9320331f7.tar.gz emacs-5cb1595fb3d9ec9b63ef322d3750aba9320331f7.zip | |
(rmail-output-to-rmail-file): If just a dir is specified,
use default name in specified dir.
| -rw-r--r-- | lisp/mail/rmailout.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 90aedd8f62a..fa7c921de65 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el | |||
| @@ -61,16 +61,19 @@ starting with the current one. Deleted messages are skipped and don't count." | |||
| 61 | ;; If not suggestions, use same file as last time. | 61 | ;; If not suggestions, use same file as last time. |
| 62 | (or answer rmail-last-rmail-file)))) | 62 | (or answer rmail-last-rmail-file)))) |
| 63 | (list (setq rmail-last-rmail-file | 63 | (list (setq rmail-last-rmail-file |
| 64 | (expand-file-name | 64 | (let ((read-file |
| 65 | (or | 65 | (read-file-name |
| 66 | (read-file-name | 66 | (concat "Output message to Rmail file: (default " |
| 67 | (concat "Output message to Rmail file: (default " | 67 | (file-name-nondirectory default-file) |
| 68 | (file-name-nondirectory default-file) | 68 | ") ") |
| 69 | ") ") | 69 | (file-name-directory default-file) |
| 70 | (file-name-directory default-file) | 70 | default-file))) |
| 71 | default-file) | 71 | (if (file-directory-p read-file) |
| 72 | default-file) | 72 | (expand-file-name (file-name-nondirectory default-file) |
| 73 | (file-name-directory default-file))) | 73 | read-file) |
| 74 | (expand-file-name | ||
| 75 | (or read-file default-file) | ||
| 76 | (file-name-directory default-file))))) | ||
| 74 | (prefix-numeric-value current-prefix-arg)))) | 77 | (prefix-numeric-value current-prefix-arg)))) |
| 75 | (or count (setq count 1)) | 78 | (or count (setq count 1)) |
| 76 | (setq file-name | 79 | (setq file-name |