diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-07-25 02:19:59 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-07-25 02:19:59 +0000 |
commit | e0e93fee717c0828c79569eaa123bec2859b2d53 (patch) | |
tree | 6dd2f5941b540e47c69a67accfdeb07ee20f424f /lisp | |
parent | 220a78d3e06f2f61e89d54db1951ff718be4365d (diff) | |
download | emacs-e0e93fee717c0828c79569eaa123bec2859b2d53.tar.gz |
(unrmail): Total rewrite.
Diffstat (limited to 'lisp')
-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'." ;;;###autoload (defun unrmail (file to-file) "Convert Rmail file FILE to mailbox-format file TO-FILE." - (interactive "fUnrmail (rmail file): \nfUnrmail into (new mailbox file): ") - (let ((message-count 0)) + (interactive "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): ") + (let ((message-count 0) + (rmail-delete-after-output nil)) (rmail file) - (rmail-show-message 1) - (while (not (rmail-output to-file)) - (setq message-count (1+ message-count))))) + (message "Writing messages to %s..." to-file) + (while (< message-count rmail-total-messages) + (rmail-show-message + (setq message-count (1+ message-count))) + (rmail-output to-file 1 t)) + (message "Writing messages to %s...done" to-file))) ;;; unrmail.el ends here |