-;;; unrmail.el --- convert Rmail files to mailbox files.
+;;; unrmail.el --- convert Rmail files to mailbox files
+
;;; Copyright (C) 1992 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Keywords: mail
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
(defvar command-line-args-left) ;Avoid 'free variable' warning
;;;###autoload
(defun batch-unrmail ()
- "Convert Rmail files to mailbox files.
+ "Convert Rmail files to system inbox format.
Specify the input Rmail file names as command line arguments.
For each Rmail file, the corresponding output file name
is made by adding `.mail' at the end.
;;;###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))
+ "Convert Rmail file FILE to system inbox format file TO-FILE."
+ (interactive "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): ")
+ (let ((message-count 0)
+ ;; Prevent rmail from making, or switching to, a summary buffer.
+ (rmail-display-summary nil)
+ (rmail-delete-after-output nil))
(rmail file)
- (rmail-show-message 1)
- (while (not (rmail-output to-file))
- (setq message-count (1+ message-count)))))
+ ;; Default the directory of TO-FILE based on where FILE is.
+ (setq to-file (expand-file-name to-file default-directory))
+ (message "Writing messages to %s..." to-file)
+ (while (< message-count rmail-total-messages)
+ (rmail-show-message
+ (setq message-count (1+ message-count)))
+ (rmail-toggle-header)
+ (rmail-output to-file 1 t))
+ (message "Writing messages to %s...done" to-file)))
+
+(provide 'unrmail)
+
+;;; unrmail.el ends here