[Emacs-diffs] Changes to emacs/lisp/mail/rmailout.el

[Romain Francoise]

Index: emacs/lisp/mail/rmailout.el
diff -c emacs/lisp/mail/rmailout.el:1.69 emacs/lisp/mail/rmailout.el:1.70
*** emacs/lisp/mail/rmailout.el:1.69    Sat Aug  6 18:54:05 2005
--- emacs/lisp/mail/rmailout.el Sat Sep 24 13:43:59 2005
***************
*** 63,71 ****
      (let ((read-file
           (expand-file-name
            (read-file-name
!            (concat "Output message to Rmail file: (default "
                     (file-name-nondirectory default-file)
!                    ") ")
             (file-name-directory default-file)
             (abbreviate-file-name default-file))
            (file-name-directory default-file))))
--- 63,71 ----
      (let ((read-file
           (expand-file-name
            (read-file-name
!            (concat "Output message to Rmail file (default "
                     (file-name-nondirectory default-file)
!                    "): ")
             (file-name-directory default-file)
             (abbreviate-file-name default-file))
            (file-name-directory default-file))))
***************
*** 95,103 ****
      (let ((read-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))))
--- 95,103 ----
      (let ((read-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))))