Mercurial > emacs
comparison lisp/mail/rmailout.el @ 5399:67aa88583b90
(rmail-output-to-rmail-file): If just a dir is specified,
use default name in specified dir.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 01 Jan 1994 08:31:33 +0000 |
parents | a74ffe260236 |
children | 1d9fabec8bec |
comparison
equal
deleted
inserted
replaced
5398:499f25507242 | 5399:67aa88583b90 |
---|---|
59 (setq answer (eval (cdr (car tail))))) | 59 (setq answer (eval (cdr (car tail))))) |
60 (setq tail (cdr tail)))) | 60 (setq tail (cdr tail)))) |
61 ;; If not suggestions, use same file as last time. | 61 ;; If not suggestions, use same file as last time. |
62 (or answer rmail-last-rmail-file)))) | 62 (or answer rmail-last-rmail-file)))) |
63 (list (setq rmail-last-rmail-file | 63 (list (setq rmail-last-rmail-file |
64 (expand-file-name | 64 (let ((read-file |
65 (or | 65 (read-file-name |
66 (read-file-name | 66 (concat "Output message to Rmail file: (default " |
67 (concat "Output message to Rmail file: (default " | 67 (file-name-nondirectory default-file) |
68 (file-name-nondirectory default-file) | 68 ") ") |
69 ") ") | 69 (file-name-directory default-file) |
70 (file-name-directory default-file) | 70 default-file))) |
71 default-file) | 71 (if (file-directory-p read-file) |
72 default-file) | 72 (expand-file-name (file-name-nondirectory default-file) |
73 (file-name-directory default-file))) | 73 read-file) |
74 (expand-file-name | |
75 (or read-file default-file) | |
76 (file-name-directory default-file))))) | |
74 (prefix-numeric-value current-prefix-arg)))) | 77 (prefix-numeric-value current-prefix-arg)))) |
75 (or count (setq count 1)) | 78 (or count (setq count 1)) |
76 (setq file-name | 79 (setq file-name |
77 (expand-file-name file-name | 80 (expand-file-name file-name |
78 (file-name-directory rmail-last-rmail-file))) | 81 (file-name-directory rmail-last-rmail-file))) |