From a538e583cabbee47bba3e650e3fb795b65bad200 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 24 Jan 1996 23:32:31 +0000 Subject: [PATCH] (unrmail): Default the directory of TO-FILE based on FILE. --- lisp/mail/unrmail.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 9bf009fe43c..05fe04899af 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -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 -- 2.39.2