Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmailout.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 364816949b59
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
60 (setq answer (eval (cdr (car tail))))) 60 (setq answer (eval (cdr (car tail)))))
61 (setq tail (cdr tail)))) 61 (setq tail (cdr tail))))
62 ;; If not suggestions, use same file as last time. 62 ;; If not suggestions, use same file as last time.
63 (or answer rmail-last-rmail-file)))) 63 (or answer rmail-last-rmail-file))))
64 (list (setq rmail-last-rmail-file 64 (list (setq rmail-last-rmail-file
65 (if default-file 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)
72 (read-file-name "Output message to Rmail file: ")))
73 (prefix-numeric-value current-prefix-arg)))) 71 (prefix-numeric-value current-prefix-arg))))
74 (or count (setq count 1)) 72 (or count (setq count 1))
75 (setq file-name 73 (setq file-name
76 (expand-file-name file-name 74 (expand-file-name file-name
77 (file-name-directory rmail-last-rmail-file))) 75 (file-name-directory rmail-last-rmail-file)))