mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(unrmail): Default the directory of TO-FILE based on FILE.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-24 23:32:31 +00:00
parent 5246db4e1f
commit a538e583ca
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mail/unrmail.el
View File

@ -53,6 +53,8 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(rmail-display-summary nil)
(rmail-delete-after-output nil))
(rmail file)
;; Default the directory of TO-FILE based on where FILE is.
(setq to-file (expand-file-name to-file default-directory))
(message "Writing messages to %s..." to-file)
(while (< message-count rmail-total-messages)
(rmail-show-message