;ELC ;;; compiled by jwz@thalidomide on Mon Dec 27 18:34:37 1993 ;;; from file /th/jwz/emacs19/lisp/rmail/unrmail.el ;;; emacs version 19.9 Lucid (beta6). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'batch-unrmail #[nil "! @ @P\" An! ˪!)" [noninteractive error "`batch-unrmail' is to be used only with -batch" nil command-line-args-left unrmail ".mail" t message "Done" kill-emacs 1 0] 5 "\ Convert Rmail files to mailbox files. 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'."]) (fset 'unrmail #[(file to-file) " !\"  W T!#j\"*" [0 nil rmail-delete-after-output message-count rmail file message "Writing messages to %s..." to-file rmail-total-messages rmail-show-message rmail-output 1 t "Writing messages to %s...done"] 4 "\ Convert Rmail file FILE to mailbox-format file TO-FILE." "fUnrmail (rmail file): \nFUnrmail into (new mailbox file): "])