diff options
| author | Richard M. Stallman | 1993-07-25 02:19:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-25 02:19:59 +0000 |
| commit | 4eb5bf462db3c8efcc671a3b47c026190dcd88f0 (patch) | |
| tree | 311a43f6563ec60a4fe9bdcf6cdcd6e5f9f22763 | |
| parent | 6e446ebbcc8e58217ff60d232c5137c10d00c108 (diff) | |
| download | emacs-4eb5bf462db3c8efcc671a3b47c026190dcd88f0.tar.gz emacs-4eb5bf462db3c8efcc671a3b47c026190dcd88f0.zip | |
(unrmail): Total rewrite.
| -rw-r--r-- | lisp/mail/unrmail.el | 14 |
1 files 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'." | |||
| 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 |