# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822526351 0
# Node ID e3e1d7c2e7e5137f244b0c9994ddda887856f1d7
# Parent  ca40593f893370ab26fa58db2ba28a6f5d813d13
(unrmail): Default the directory of TO-FILE based on FILE.

diff -r ca40593f8933 -r e3e1d7c2e7e5 lisp/mail/unrmail.el
--- a/lisp/mail/unrmail.el	Wed Jan 24 23:32:14 1996 +0000
+++ b/lisp/mail/unrmail.el	Wed Jan 24 23:32:31 1996 +0000
@@ -53,6 +53,8 @@
 	(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