diff options
| -rw-r--r-- | lisp/mail/unrmail.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 930d9343a83..ac999a31abd 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el | |||
| @@ -46,11 +46,15 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." | |||
| 46 | ;;;###autoload | 46 | ;;;###autoload |
| 47 | (defun unrmail (file to-file) | 47 | (defun unrmail (file to-file) |
| 48 | "Convert Rmail file FILE to mailbox-format file TO-FILE." | 48 | "Convert Rmail file FILE to mailbox-format file TO-FILE." |
| 49 | (interactive "fUnrmail (rmail file): \nfUnrmail into (new mailbox file): ") | 49 | (interactive "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): ") |
| 50 | (let ((message-count 0)) | 50 | (let ((message-count 0) |
| 51 | (rmail-delete-after-output nil)) | ||
| 51 | (rmail file) | 52 | (rmail file) |
| 52 | (rmail-show-message 1) | 53 | (message "Writing messages to %s..." to-file) |
| 53 | (while (not (rmail-output to-file)) | 54 | (while (< message-count rmail-total-messages) |
| 54 | (setq message-count (1+ message-count))))) | 55 | (rmail-show-message |
| 56 | (setq message-count (1+ message-count))) | ||
| 57 | (rmail-output to-file 1 t)) | ||
| 58 | (message "Writing messages to %s...done" to-file))) | ||
| 55 | 59 | ||
| 56 | ;;; unrmail.el ends here | 60 | ;;; unrmail.el ends here |