;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:09 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/unrmail.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`unrmail.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\301\207" [current-load-list command-line-args-left] 2) #@260 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'. (defalias 'batch-unrmail #[nil "\204\301\303!\210\304\n\203\"\305\n@\n@\306P\"\204\307\nA\211\204\310\311!\210\312 \203/\313\2020\314!)\207" [noninteractive error command-line-args-left "`batch-unrmail' is to be used only with -batch" nil unrmail ".mail" t message "Done" kill-emacs 1 0] 5 (#$ . 697)]) #@62 Convert Rmail file FILE to system inbox format file TO-FILE. (defalias 'unrmail #[(file to-file) "\306\307\211\310 !\210\311\f \"\312\313\f\"\210\nW\203.\314\nT\211!\210\315 \210\316\f\317\320#\210\202\312\321\f\"+\207" [rmail-delete-after-output rmail-display-summary message-count file to-file default-directory 0 nil rmail expand-file-name message "Writing messages to %s..." rmail-show-message rmail-toggle-header rmail-output 1 t "Writing messages to %s...done" rmail-total-messages] 4 (#$ . 1278) "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): "]) (provide 'unrmail)