From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 Jan 1996 23:32:31 +0000 (+0000)
Subject: (unrmail): Default the directory of TO-FILE based on FILE.
X-Git-Tag: emacs-19.34~1564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a538e583cabbee47bba3e650e3fb795b65bad200;p=emacs.git

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

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