diff options
| -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'." | |||
| 53 | (rmail-display-summary nil) | 53 | (rmail-display-summary nil) |
| 54 | (rmail-delete-after-output nil)) | 54 | (rmail-delete-after-output nil)) |
| 55 | (rmail file) | 55 | (rmail file) |
| 56 | ;; Default the directory of TO-FILE based on where FILE is. | ||
| 57 | (setq to-file (expand-file-name to-file default-directory)) | ||
| 56 | (message "Writing messages to %s..." to-file) | 58 | (message "Writing messages to %s..." to-file) |
| 57 | (while (< message-count rmail-total-messages) | 59 | (while (< message-count rmail-total-messages) |
| 58 | (rmail-show-message | 60 | (rmail-show-message |