-;;; 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.
;; 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
(rmail-display-summary nil)
(rmail-delete-after-output nil))
(rmail file)
+ ;; 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
(rmail-output to-file 1 t))
(message "Writing messages to %s...done" to-file)))
+(provide 'unrmail)
+
;;; unrmail.el ends here