masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 18:00:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
use default name in specified dir.
This commit is contained in:
Richard M. Stallman 1994-01-01 08:31:33 +00:00
parent 5625c2fc22
commit 5cb1595fb3
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/mail/rmailout.el
View file

@ -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.
(or answer rmail-last-rmail-file))))
(list (setq rmail-last-rmail-file
(expand-file-name
(or
(read-file-name
(concat "Output message to Rmail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
default-file)
default-file)
(file-name-directory default-file)))
(let ((read-file
(read-file-name
(concat "Output message to Rmail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
default-file)))
(if (file-directory-p read-file)
(expand-file-name (file-name-nondirectory default-file)
read-file)
(expand-file-name
(or read-file default-file)
(file-name-directory default-file)))))
(prefix-numeric-value current-prefix-arg))))
(or count (setq count 1))
(setq file-name