/[emacs]/emacs/lisp/mail/rmailout.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailout.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by ttn, Sat Aug 6 18:54:05 2005 UTC revision 1.70 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 63  Set `rmail-default-rmail-file' to this n Line 63  Set `rmail-default-rmail-file' to this n
63      (let ((read-file      (let ((read-file
64             (expand-file-name             (expand-file-name
65              (read-file-name              (read-file-name
66               (concat "Output message to Rmail file: (default "               (concat "Output message to Rmail file (default "
67                       (file-name-nondirectory default-file)                       (file-name-nondirectory default-file)
68                       ") ")                       "): ")
69               (file-name-directory default-file)               (file-name-directory default-file)
70               (abbreviate-file-name default-file))               (abbreviate-file-name default-file))
71              (file-name-directory default-file))))              (file-name-directory default-file))))
# Line 95  Set `rmail-default-file' to this name as Line 95  Set `rmail-default-file' to this name as
95      (let ((read-file      (let ((read-file
96             (expand-file-name             (expand-file-name
97              (read-file-name              (read-file-name
98               (concat "Output message to Unix mail file: (default "               (concat "Output message to Unix mail file (default "
99                       (file-name-nondirectory default-file)                       (file-name-nondirectory default-file)
100                       ") ")                       "): ")
101               (file-name-directory default-file)               (file-name-directory default-file)
102               (abbreviate-file-name default-file))               (abbreviate-file-name default-file))
103              (file-name-directory default-file))))              (file-name-directory default-file))))

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26