# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 914614483 0
# Node ID 7da919fff9be85f30ec6cc6865a478258bb20047
# Parent  f3b7b90fe70b103c604fe12352d9ee04f1a25886
(rmail-output): Abbreviate name of default-file for
read-file-name.
(rmail-output-to-rmail-file): Likewise.

diff -r f3b7b90fe70b -r 7da919fff9be lisp/mail/rmailout.el
--- 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)