mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(unrmail): Total rewrite.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-25 02:19:59 +00:00
parent 6e446ebbcc
commit 4eb5bf462d
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/mail/unrmail.el
View file

@ -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