;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@274 Convert old-style Rmail Babyl files to mbox format.
Specify the input Rmail Babyl 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 #[0 "\204\302\303!\210\304	\203\"\305	@	@\306P\"\204\307\262
	A\211\204
\310\311!\210\312
\203/\313\2020\314!\207" [noninteractive command-line-args-left error "`batch-unrmail' is to be used only with -batch" nil unrmail ".mail" t message "Done" kill-emacs 1 0] 6 (#$ . 85)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable unrmail-mbox-format funcall function #[0 "\300\207" [mboxrd] 1 ""] "The mbox format that `unrmail' should produce.\nThese formats separate messages using lines that start with \"From \".\nTherefore any lines in the message bodies that start with \"From \"\nmust be quoted.  The `mboxo' format just prepends a \">\" to such lines.\nThis is not reversible, because given a line starting with \">From \" in\nan mboxo file, it is not possible to know whether the original had a \">\"\nor not.  The `mboxrd' format avoids this by also quoting \">From \" as\n\">>From \", and so on.  For this reason, mboxrd is recommended.\n\nSee also `rmail-mbox-format'." :type (choice (const mboxrd) (const mboxo)) :version "24.4" :group rmail-files] 10)
#@159 Convert old-style Rmail Babyl file FILE to mbox format file TO-FILE.
The variable `unrmail-mbox-format' controls which mbox format to use.

(fn FILE TO-FILE)
(defalias 'unrmail #[514 "\306\307\310\"r\211q\210\311\312\"\216\313\314!\210)\315\310!\210\316\317\320!\204$\321\322!\210\n\323\211eb\210\324\325\323\310#\210`\262db\210\326\325\327#\210
`\211\262U\203I\321\330!\210\203S\331!\204h\332 \333\334!\210\311\335\"\216\336\")\262
@\262\337>\204~\340\310!\210\310\341#\210)\f\262\323\206\205\342\266\343@\"\262\3441\233\345!0\210\202\234\210\346\347\"\210eb\210\350\351!p\352\353\323\310#\203\266`\212\352\354\323\310#\203\277\355\224\202\300d)\313\323\211\211\211\211r	q\210\310\356 \210\313\357			#\210eb\210\360y\210g\361U\262
`\212\360y\210`){\262\352\362!\210l\204
`\323\210`S{\262\363\364\"\203
\365\202
\366\363\367\"\203
\370\202
\366\363\371\"\203(
\372\202)
\366\363\373	\"\2035
\374\2026
\366\363\375\n\"\203B
\376\202C
\366\363\377\"\203Q
\201E\202R
\366\363\201F\f\"\203b
\201G\202c
\366\363\201H
\"\203s
\201I\202t
\366\257\262eb\210\211\203\264
\201Jy\210\310A\317\201K!\203\225
\360y\210\202\207
)e`|\210\352\201L!\210\201My\210`\324\201N!\210\211`|\266\202\276
\352\201L!\210e`|\210\201O\201P\323\310#\203\331
`\324B\323\310#\204\313
\211`|\266eb\210\214e\212\324\201N\323\201Q#\210`)}\210\201R\201S!\211\205\201T\201U\"\262
\206	\201V \262\201R\201W!\211\203&\201X\201Y!\355\"\262\210\202*\316\262\210\352\201Z\323\310#\203@\201[ \210`\360y\210`|\210)eb\210
c\210\201\\\201]\201^\"\201_\261\210\203g\201`\201_\261\210\323C\201a=\203w\201b\202z\201c
A\352
\323\310#\203\225\201[ \210\201dc\210\360y\210\202})\266db\210\201_c\210D\201eed\310\201f%\210*\266\202\250\201g!\266\346\201h\"*\207" [coding-system-for-read buffer-file-coding-system rmail-file-coding-system buffer-undo-list last-coding-system-used save-buffer-coding-system generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] raw-text insert-file-contents set-buffer-multibyte raw-text-unix looking-at "BABYL OPTIONS" error "This file is not in Babyl format" nil search-forward "\n" search-backward mv "The input file contains no messages" coding-system-p coding-system-priority-list set-coding-system-priority emacs-mule #[0 "\301\302\300\"\207" [V0 apply set-coding-system-priority] 3] detect-coding-region (undecided undecided-unix) set-buffer-modified-p decode-coding-region undecided expand-file-name (file-error) delete-file message "Writing messages to %s..." get-buffer-create " unrmail" re-search-forward "^\f" "^\\(\f\\|\\'\\)" 0 erase-buffer insert-buffer-substring 1 49 ",, ?" string-match ", answered," 65 45 ", deleted," 68 ", edited," 69 ", filed," 70 ", retried," 82 ", forwarded," default-directory case-fold-search rmime-magic-string unrmail-mbox-format coding-system-for-write 83 ", unseen," 85 ", resent," 114 2 "Summary-Line:" "^[*][*][*] EOOH [*][*][*]\n" -1 "\n\n" require rmime move mail-fetch-field "Mail-From" format "%s\n" mail-mbox-from "X-Coding-System" coding-system-change-eol-conversion intern "^Mail-from:" beginning-of-line "X-RMAIL-ATTRIBUTES: " apply string "\n" "X-RMAIL-KEYWORDS: " mboxrd "^>*From " "^From " 62 write-region nomsg kill-buffer "Writing messages to %s...done"] 23 (#$ . 1507) "fUnrmail (babyl file): \nFUnrmail into (new mailbox file): "])
(provide 'unrmail)