(mail-extr-safe-move-sexp): Make sure this doesn't

[gnu-emacs] / lisp / mail / unrmail.el

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 9bf009fe43c2de9dd3a6958238bc4d0194c0eee8..05fe04899afe4df90a804bb55a349fddbf09b43c 100644 (file)
--- 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