Mercurial > emacs

comparison lisp/mail/unrmail.el @ 4266:5a7266ff9af1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unrmail): Total rewrite.
author Richard M. Stallman <rms@gnu.org>
date Sun, 25 Jul 1993 02:19:59 +0000
parents 2c7997f249eb
children 8d8033687586
comparison
equal deleted inserted replaced
4265:2812d8619305 4266:5a7266ff9af1
44 (kill-emacs (if error 1 0)))) 44 (kill-emacs (if error 1 0))))
45 45
46 ;;;###autoload 46 ;;;###autoload
47 (defun unrmail (file to-file) 47 (defun unrmail (file to-file)
48 "Convert Rmail file FILE to mailbox-format file TO-FILE." 48 "Convert Rmail file FILE to mailbox-format file TO-FILE."
49 (interactive "fUnrmail (rmail file): \nfUnrmail into (new mailbox file): ") 49 (interactive "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): ")
50 (let ((message-count 0)) 50 (let ((message-count 0)
51 (rmail-delete-after-output nil))
51 (rmail file) 52 (rmail file)
52 (rmail-show-message 1) 53 (message "Writing messages to %s..." to-file)
53 (while (not (rmail-output to-file)) 54 (while (< message-count rmail-total-messages)
54 (setq message-count (1+ message-count))))) 55 (rmail-show-message
56 (setq message-count (1+ message-count)))
57 (rmail-output to-file 1 t))
58 (message "Writing messages to %s...done" to-file)))
55 59
56 ;;; unrmail.el ends here 60 ;;; unrmail.el ends here