diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-24 23:32:31 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-24 23:32:31 +0000 |
| commit | 1593436a26ea501666a7d22d50531c3333889734 (patch) | |
| tree | 0f9d546917d8ed58612069df0ecc636988777a8e /lisp/mail/unrmail.el | |
| parent | cd59b71017497ae1f89be680917e3ba7830503fa (diff) | |
| download | emacs-1593436a26ea501666a7d22d50531c3333889734.tar.gz | |
(unrmail): Default the directory of TO-FILE based on FILE.
Diffstat (limited to 'lisp/mail/unrmail.el')
| -rw-r--r-- | lisp/mail/unrmail.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |