# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743566799 0
# Node ID 5a7266ff9af10fead04250989769580d56c4bfbc
# Parent  2812d861930503e705e94f10a066a8e01541a83c
(unrmail): Total rewrite.

diff -r 2812d8619305 -r 5a7266ff9af1 lisp/mail/unrmail.el
--- a/lisp/mail/unrmail.el	Sun Jul 25 02:19:47 1993 +0000
+++ b/lisp/mail/unrmail.el	Sun Jul 25 02:19:59 1993 +0000
@@ -46,11 +46,15 @@
 ;;;###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