Mercurial > emacs

changeset 14296:e3e1d7c2e7e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unrmail): Default the directory of TO-FILE based on FILE.
author Karl Heuer <kwzh@gnu.org>
date Wed, 24 Jan 1996 23:32:31 +0000
parents ca40593f8933
children ac17ae608afe
files lisp/mail/unrmail.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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