Commit 5cb1595f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-output-to-rmail-file): If just a dir is specified,

use default name in specified dir.
parent 5625c2fc
...@@ -61,16 +61,19 @@ starting with the current one. Deleted messages are skipped and don't count." ...@@ -61,16 +61,19 @@ starting with the current one. Deleted messages are skipped and don't count."
;; If not suggestions, use same file as last time. ;; If not suggestions, use same file as last time.
(or answer rmail-last-rmail-file)))) (or answer rmail-last-rmail-file))))
(list (setq rmail-last-rmail-file (list (setq rmail-last-rmail-file
(expand-file-name (let ((read-file
(or (read-file-name
(read-file-name (concat "Output message to Rmail file: (default "
(concat "Output message to Rmail file: (default " (file-name-nondirectory default-file)
(file-name-nondirectory default-file) ") ")
") ") (file-name-directory default-file)
(file-name-directory default-file) default-file)))
default-file) (if (file-directory-p read-file)
default-file) (expand-file-name (file-name-nondirectory default-file)
(file-name-directory default-file))) read-file)
(expand-file-name
(or read-file default-file)
(file-name-directory default-file)))))
(prefix-numeric-value current-prefix-arg)))) (prefix-numeric-value current-prefix-arg))))
(or count (setq count 1)) (or count (setq count 1))
(setq file-name (setq file-name
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment