mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-01 08:17:38 +00:00
72 lines
2.5 KiB
EmacsLisp
72 lines
2.5 KiB
EmacsLisp
;;; 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
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; 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, 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 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.
|
|
For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
|
|
;; command-line-args-left is what is left of the command line (from startup.el)
|
|
(if (not noninteractive)
|
|
(error "`batch-unrmail' is to be used only with -batch"))
|
|
(let ((error nil))
|
|
(while command-line-args-left
|
|
(or (unrmail (car command-line-args-left)
|
|
(concat (car command-line-args-left) ".mail"))
|
|
(setq error t))
|
|
(setq command-line-args-left (cdr command-line-args-left)))
|
|
(message "Done")
|
|
(kill-emacs (if error 1 0))))
|
|
|
|
;;;###autoload
|
|
(defun unrmail (file to-file)
|
|
"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)
|
|
;; 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
|