From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Fri, 25 Dec 1998 19:34:43 +0000 (+0000)
Subject: (rmail-output): Abbreviate name of default-file for
X-Git-Tag: emacs-20.4~1008
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab26be45d49626b966dbbea36ee8f5b07fd9c371;p=emacs.git

(rmail-output): Abbreviate name of default-file for
read-file-name.
(rmail-output-to-rmail-file): Likewise.
---

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 4a7e07ecf85..fa2be6b17d3 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -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)