Mercurial > emacs

comparison lisp/mail/rmailout.el @ 5399:67aa88583b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))