Current File : //usr/local/share/emacs/27.2/lisp/mail/unrmail.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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 #[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 (#$ . 409)])
#@561 The mbox format that `unrmail' should produce.
These formats separate messages using lines that start with "From ".
Therefore any lines in the message bodies that start with "From "
must be quoted. The `mboxo' format just prepends a ">" to such lines.
This is not reversible, because given a line starting with ">From " in
an mboxo file, it is not possible to know whether the original had a ">"
or not. The `mboxrd' format avoids this by also quoting ">From " as
">>From ", and so on. For this reason, mboxrd is recommended.
See also `rmail-mbox-format'.
(custom-declare-variable 'unrmail-mbox-format ''mboxrd '(#$ . 1005) :type '(choice (const mboxrd) (const mboxo)) :version "24.4" :group 'rmail-files)
#@140 Convert old-style Rmail Babyl file FILE to mbox format file TO-FILE.
The variable `unrmail-mbox-format' controls which mbox format to use.
(defalias 'unrmail #[(file to-file) "\306\307!rq\210\310\216\311\312\n!\210)\313\314!\210\315\316\317!\204! \320\321!\210\f\322\211 @ Aeb\210\323\324\322\314#\210`@db\210\325\324@\326#\210@`\211U\203L \320\327!\210A\203X \330A!\204k \331 B\332\333!\210\334\216\335@
\"*@AA\336>\204\206 \337\314!\210\314 C\340@
A#\210)DA\322A\206\216 \341E+\342FG\"F\3431\245 \344F!0\202\251 \210\202\252 \210\345\346F\"\210eb\210\347\350!p H I\351\352\322\314#\203\347`\212\351\353\322\314#\203\322 \354\224\202\323 d)\311\322\211\211\211\211 J K L M N O P QrIq\210\314C\355 \210O\356HQP#\210eb\210\357y\210g\360UJ`\212\357y\210`){N\351\361!\210l\204'`\322\210`S{L\362\363N\"\2033\364\2024\365\362\366N\"\203@\367\202A\365\362\370N\"\203M\371\202N\365\362\372N\"\203Z\373\202[\365\362\374N\"\203g\375\202h\365\362\376N\"\203t\377\202u\365\362\201Y N\"\203\205\201Z \202\206\365\362\201[ N\"\203\226\201\\ \202\227\365\257Meb\210J\203\333\201] y\210\314 R\316\201^ !\203\271\357y\210\202\253)e`|\210\351\201_ !\210\201` y\210` S\323\201a !\210S`|\210)\202\345\351\201_ !\210e`|\210\201b \201c \322\314#\203` S\323T\322\314#\204\364S`|\210)eb\210\214e\212\323\201a \322\201d #\210`)}\210\201e \201f !\211 @\205-\201g \201h @\")\2065\201i K\201e \201j !\211 U\203T\201k \201l U!\354\"O\202W\315O)\351\201m \322\314#\203n\201n \210`\357y\210`|\210)eb\210Kc\210\201o \201p \201q M\"\201r \261\210L\203\230\201s L\201r \261\210\322V\201t =\203\250\201u \202\253\201v W R\351W\322\314#\203\310\201n \210\201w c\210\357y\210\202\257*db\210\201r c\210O X\201x edF\314\201y %\210.\n\202\273 \201z I!\210*\345\201{ F\"+\207" [#1=#:temp-buffer coding-system-for-read file buffer-file-coding-system rmail-file-coding-system to generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] raw-text insert-file-contents set-buffer-multibyte t 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 #[nil "\301\302\"\207" [#2=#:current 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," 83 from coding-system #2# buffer-undo-list last-coding-system-used save-buffer-coding-system to-file default-directory from-buffer temp-buffer reformatted mail-from keywords attrs label-line coding end beg case-fold-search start rmime-magic-string maybe-coding unrmail-mbox-format fromline coding-system-for-write ", 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"] 11 (#$ . 1722) "fUnrmail (babyl file): \nFUnrmail into (new mailbox file): "])
(provide 'unrmail)
Mini Shell