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 | 4eb5bf462db3c8efcc671a3b47c026190dcd88f0 (patch) | |
| tree | 311a43f6563ec60a4fe9bdcf6cdcd6e5f9f22763 /lisp/mail/unrmail.el | |
| parent | 6e446ebbcc8e58217ff60d232c5137c10d00c108 (diff) | |
| download | emacs-4eb5bf462db3c8efcc671a3b47c026190dcd88f0.tar.gz | |
(unrmail): Total rewrite.
Diffstat (limited to 'lisp/mail/unrmail.el')
| -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 |