mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

Use new names rmail-default-file and rmail-default-rmail-file.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-15 01:22:53 +00:00
parent 10e6ca88b1
commit fdc9edf239
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/mail/rmailout.el
View File

@ -59,8 +59,8 @@ starting with the current one. Deleted messages are skipped and don't count."
(setq answer (eval (cdr (car tail)))))
(setq tail (cdr tail))))
;; If not suggestions, use same file as last time.
(or answer rmail-last-rmail-file))))
(list (setq rmail-last-rmail-file
(or answer rmail-default-rmail-file))))
(list (setq rmail-default-rmail-file
(let ((read-file
(read-file-name
(concat "Output message to Rmail file: (default "
@ -78,7 +78,7 @@ starting with the current one. Deleted messages are skipped and don't count."
(or count (setq count 1))
(setq file-name
(expand-file-name file-name
(file-name-directory rmail-last-rmail-file)))
(file-name-directory rmail-default-rmail-file)))
(if (and (file-readable-p file-name) (not (rmail-file-p file-name)))
(rmail-output file-name count)
(rmail-maybe-set-message-counters)
@ -183,22 +183,22 @@ to set the `filed' attribute, and not to display a message.
The optional fourth argument FROM-GNUS is set when called from GNUS."
(interactive
(list (setq rmail-last-file
(list (setq rmail-default-file
(read-file-name
(concat "Output message to Unix mail file"
(if rmail-last-file
(if rmail-default-file
(concat " (default "
(file-name-nondirectory rmail-last-file)
(file-name-nondirectory rmail-default-file)
"): " )
": "))
(and rmail-last-file (file-name-directory rmail-last-file))
rmail-last-file))
(and rmail-default-file (file-name-directory rmail-default-file))
rmail-default-file))
(prefix-numeric-value current-prefix-arg)))
(or count (setq count 1))
(setq file-name
(expand-file-name file-name
(and rmail-last-file
(file-name-directory rmail-last-file))))
(and rmail-default-file
(file-name-directory rmail-default-file))))
(if (and (file-readable-p file-name) (rmail-file-p file-name))
(rmail-output-to-rmail-file file-name count)
(let ((orig-count count)