From 4eb5bf462db3c8efcc671a3b47c026190dcd88f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 Jul 1993 02:19:59 +0000 Subject: [PATCH] (unrmail): Total rewrite. --- lisp/mail/unrmail.el | 14 +++++++++----- 1 file 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 -- 2.39.5