Mercurial > emacs

changeset 23941:7da919fff9be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output): Abbreviate name of default-file for read-file-name. (rmail-output-to-rmail-file): Likewise.
author Markus Rost <rost@math.uni-bielefeld.de>
date Fri, 25 Dec 1998 19:34:43 +0000
parents f3b7b90fe70b
children 8fa87eee9ae5
files lisp/mail/rmailout.el
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Fri Dec 25 07:49:59 1998 +0000
+++ b/lisp/mail/rmailout.el	Fri Dec 25 19:34:43 1998 +0000
@@ -76,7 +76,7 @@
 		      (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 @@
 	     (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)