From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Jul 1993 02:19:59 +0000 (+0000)
Subject: (unrmail): Total rewrite.
X-Git-Tag: emacs-19.34~11585
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4eb5bf462db3c8efcc671a3b47c026190dcd88f0;p=emacs.git

(unrmail): Total rewrite.
---

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