| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/unrmail.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/unrmail.el
;;; in Emacs version 24.3.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@282 Convert old-style Rmail Babyl files to system inbox 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 (#$ . 556)])
#@78 Convert old-style Rmail Babyl file FILE to system inbox format file TO-FILE.
(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!\204o \331 B\332\333\334\335\336\"\"\210\337\216\340@
\"*@AA\341>\204\212 \342\314!\210\314 C\343@
A#\210)DA\322A\206\222 \344E+\345FG\"F\322\346\347\217\210\350\351F\"\210eb\210\352\353!p H I\354\355\322\314#\203\320`\212\354\356\322\314#\203\312 \357\224\202\313 d)\311\322\211\211\211\211 J K L M N O P QrIq\210\314C\360 \210O\361HQP#\210eb\210\362y\210g\363UJ`\212\362y\210`){N\354\364!\210l\204 `\322\210`S{L\365\366N\"\203+\367\202,\370\365\371N\"\2038\372\2029\370\365\373N\"\203E\374\202F\370\365\375N\"\203R\376\202S\370\365\377N\"\203a\201W \202b\370\365\201X N\"\203r\201Y \202s\370\365\201Z N\"\203\203\201[ \202\204\370\365\201\\ N\"\203\224\201] \202\225\370\257Meb\210J\203\331\201^ y\210\314 R\316\201_ !\203\267\362y\210\202\251)e`|\210\354\201` !\210\201a y\210` S\323\201b !\210S`|\210)\202\343\354\201` !\210e`|\210\201c \201d \322\314#\203` S\323T\322\314#\204\362S`|\210)eb\210\214e\212\323\201b \322\201e #\210`)}\210\201f \201g !\211 @\205+\201h \201i @\")\2063\201j K\201f \201k !\211 U\203R\201l \201m U!\357\"O\202U\315O)\354\201n \322\314#\203l\201o \210`\362y\210`|\210)eb\210Kc\210\201p \332\201q M\"\201r \261\210L\203\224\201s L\201r \261\210eb\210\322 R\323\201t \322\314#\203\261\201u u\210\201v c\210\202\232)db\210\201r c\210O V\201w edF\314\201x %\210.\n\202\263 \201y I!\210*\350\201z F\"+\207" [#1=#:temp-buffer coding-system-for-read file buffer-file-coding-system rmail-file-coding-system to generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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 apply set-coding-system-priority mapcar cdr ((coding-category-emacs-mule . emacs-mule)) ((byte-code "\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 (delete-file to-file) ((file-error)) 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," 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 coding-system-for-write 82 ", forwarded," 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: " string "\n" "X-RMAIL-KEYWORDS: " "\nFrom " -5 62 write-region nomsg kill-buffer "Writing messages to %s...done"] 11 (#$ . 1159) "fUnrmail (babyl file): \nFUnrmail into (new mailbox file): "])
(provide 'unrmail)