mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-output): Abbreviate name of default-file for

Browse source 
read-file-name.
(rmail-output-to-rmail-file): Likewise.
This commit is contained in:
Markus Rost 1998-12-25 19:34:43 +00:00
parent 3c7e961d4b
commit ab26be45d4
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/mail/rmailout.el
View file

@ -76,7 +76,7 @@ starting with the current one. Deleted messages are skipped and don't count."
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
default-file)
(abbreviate-file-name default-file))
(file-name-directory default-file))))
;; If the user enters just a directory,
;; use the name within that directory chosen by the default.
@ -241,12 +241,14 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
(or answer rmail-default-file))))
(list (setq rmail-default-file
(let ((read-file
(read-file-name
(concat "Output message to Unix mail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory (expand-file-name default-file))
(expand-file-name default-file))))
(expand-file-name
(read-file-name
(concat "Output message to Unix mail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
(abbreviate-file-name default-file))
(file-name-directory default-file))))
(if (file-directory-p read-file)
(expand-file-name (file-name-nondirectory default-file)
read-file)