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)))) |
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)))) |