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



(byte-code "\300\301!\210\302\303!\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\304\322\306\307\323DD\324\312\325\314\315&\210\304\326\306\307\327DD\330\312\331\332\333\314\315&	\207" [require rmail provide rmailout custom-declare-variable rmail-output-decode-coding funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, do coding system decoding when outputting message as Babyl." :type boolean :group rmail-output rmail-output-file-alist #[0 "\300\207" [nil] 1 #1#] "Alist matching regexps to suggested output Rmail files.\nThis is a list of elements of the form (REGEXP . NAME-EXP).\nThe suggestion is taken if REGEXP matches anywhere in the message buffer.\nNAME-EXP may be a string constant giving the file name to use,\nor more generally it may be any kind of expression that returns\na file name as a string." (repeat (cons regexp (choice :value #1# (string :tag "File Name") sexp))) rmail-fields-not-to-output #[0 "\300\207" [nil] 1 #1#] "Regexp describing fields to exclude when outputting a message to a file.\nThe function `rmail-delete-unwanted-fields' uses this, ignoring case." (choice (const :tag "None" nil) regexp) rmail-output-reset-deleted-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means reset the \"deleted\" flag when outputting a message to a file." (choice (const :tag "Output with the \"deleted\" flag reset" t) (const :tag "Output with the \"deleted\" flag intact" nil)) :version "27.1"] 10)
#@147 Read the file name to use for `rmail-output'.
Set `rmail-default-file' to this name as well as returning it.
This uses `rmail-output-file-alist'.
(defalias 'rmail-output-read-file-name #[0 "\203r	\204\f\305\306!\210r	q\210\307\n!\310\n!\311 \203q\210\212\214~\210

}\210\312
\203i\211\204ieb\210\313@@\312\314#\203b\3151K\316@A\314\"0\202`\317\320\321\322@@@A$\323#\210\312\262
\262

A\262\202(\262
*\266\202)\206s\f\324\325\326\327!\330Q\331!\332!#\331!\"\333
!\203\225\324\327!\"\202\241\324
\206\235\327!\331!\"\211\207" [rmail-output-file-alist rmail-buffer rmail-current-message rmail-view-buffer rmail-default-file error "There is no Rmail buffer" rmail-msgbeg rmail-msgend rmail-buffers-swapped-p nil re-search-forward t (error) eval display-warning rmail-output format-message "Error evaluating `rmail-output-file-alist' element:\nregexp: %s\naction: %s\nerror: %S\n" :error expand-file-name read-file-name "Output message to mail file (default " file-name-nondirectory "): " file-name-directory abbreviate-file-name file-directory-p] 12 (#$ . 1564)])
#@185 Delete all headers matching `rmail-fields-not-to-output'.
Retains headers matching the regexp PRESERVE.  Ignores case.
The buffer should be narrowed to just the header.

(fn PRESERVE)
(defalias 'rmail-delete-unwanted-fields #[257 "\205%\212eb\210\302\303\304\302#\205$\305 \210\306
!\204\n`\307\310!|\210\202\n*\207" [rmail-fields-not-to-output case-fold-search t re-search-forward nil beginning-of-line looking-at line-beginning-position 2] 5 (#$ . 2666)])
#@481 Convert the current buffer's text to Babyl and output to FILE-NAME.
Alters the current buffer's text, so it should be a temporary buffer.
If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail buffer,
updates it accordingly.  If no buffer is visiting FILE-NAME, appends
the text directly to FILE-NAME, and displays a "Wrote file" message
unless NOMSG is a symbol (neither nil nor t).

(fn FILE-NAME NOMSG)
(defalias 'rmail-output-as-babyl #[514 "\304\214eb\210\305\306\307\310#\210e`}\210	\203\311\307!\210)\312 \210\313!p
\2042\314ed\315%\266\202\202c
p=\203<\316\317!\210
q\210\315\320\302!\205G\n
\211\203T\321\"\202`e\322 T}\210db\210\323!)\266\204)\207" [coding-system-for-write rmail-fields-not-to-output rmail-current-message inhibit-read-only emacs-mule-unix search-forward "\n\n" nil move rmail-delete-unwanted-fields rmail-convert-to-babyl-format find-buffer-visiting write-region t error "Can't output message to same file it's already in" boundp rmail-output-to-babyl-buffer buffer-size insert-buffer-substring] 10 (#$ . 3138)])
#@174 Copy message in TEMBUF into the current Babyl Rmail buffer.
Do what is necessary to make Rmail know about the new message, then
display message number MSG.

(fn TEMBUF MSG)
(defalias 'rmail-output-to-babyl-buffer #[514 "\204\f	\203\f\304\305!\210\306 \210~\210dd}\210\307!\210eb\210~\210\310\311!\210`d}\210\312\305!\210\313 \203Y\n\314 \203K\315 \212\316\317\"\216\320!\210
\321 \210+\210\202Urq\210\211\321 \210*\322 \266\323
!\207" [buffer-auto-save-file-name auto-save-default rmail-total-messages rmail-summary-buffer auto-save-mode t rmail-maybe-set-message-counters insert-buffer-substring search-backward "\n" rmail-count-new-messages rmail-summary-exists rmail-summary-displayed selected-window make-closure #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-show-message-1] 7 (#$ . 4278)])
#@65 Convert the mbox message in the current buffer to Babyl format.
(defalias 'rmail-convert-to-babyl-format #[0 "e\305\306eb\210\214\307\310!\204\311\312!\210\313c\210\314 \210\212\315\316\305\306#\205$`S)\306\212\315\317\306#)\212\315\320\306#)\205?\212\315\321\306#)db\210
\203b\212\322`\305\306\211%\204U\323\324!\210
b\210`\325\326!|\210\327c\210)\211\203\220\212\3301|\331T\212\332\305x\210`)\"\210\3060\202\200\210\202\217\203\217\211b\210`\325\326!|\210\327c\210))\266\212\214\211`}\210eb\210\333\334\305\306#\203\253\335\336!\210\202\234*n\204\263\337 \210\340c\210\305\203\336\212\211b\210\333\316\305\306#\210\306\341\f\306#*\205\327\342\343\344!\227!\345`#\266\212\211b\210\346y\210\347\350\n!\351\261,\207" [buffer-undo-list case-fold-search last-coding-system-used rmail-output-decode-coding rmail-mime-charset-pattern nil t looking-at "^From " error "Invalid mbox message" "\f\n0,,\n*** EOOH ***\n" rmail-nuke-pinhead-header re-search-forward "\n\n" "^content-transfer-encoding:\\(\n?[	 ]\\)*quoted-printable\\(\n?[	 ]\\)*" "^content-type:\\(\n?[	 ]\\)\\(text\\|message\\)/" "^content-transfer-encoding:\\(\n?[	 ]\\)*base64\\(\n?[	 ]\\)*" mail-unquote-printable-region message "Malformed MIME quoted-printable message" search-backward ":" ": 8bit" (error) base64-decode-region "\n	 " search-forward "\n" replace-match "\n^_" newline 31 re-search-backward intern match-string 1 rmail-decode-region 3 "X-Coding-System: " symbol-name "\n"] 10 (#$ . 5164)])
#@242 Delete the "From " line in the current mbox message.
The variable `rmail-unix-mail-delimiter' specifies the From line format.
Replaces the From line with a "Mail-from" header.  Adds "Date" and
"From" headers if they are not already present.
(defalias 'rmail-nuke-pinhead-header #[0 "\212\214`\3021\303\304!0\210\202\210db\210\304c\210`\305\211}\210\306b\210\303\307\305\306#\262b\210\303\310\305\306#\2055`\262
b\210)\305\311\312	P\305\306#\205}\313\314\203Q\315\202q\316\317\224\317\225U\204^\320\202o\321\224\321\225U\204n\321\224\321\225{\202o\322\323Q\203y\315\202z\324Q\306\")\266\204*\207" [case-fold-search rmail-unix-mail-delimiter (error) search-forward "\n\n" nil t "\nFrom:" "\nDate:" re-search-forward "^" replace-match "Mail-from: \\&" "" "Date: \\2, \\4 \\3 \\9 \\5 " 7 "\\7" 10 "EST" "\n" "From: \\1\n"] 9 (#$ . 6670)])
(autoload 'mail-mbox-from "mail-utils")
#@558 Convert the current buffer's text to mbox and output to FILE-NAME.
Alters the current buffer's text, so it should be a temporary buffer.
If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail buffer,
updates it accordingly.  If no buffer is visiting FILE-NAME, appends
the text directly to FILE-NAME, and displays a "Wrote file" message
unless NOMSG is a symbol (neither nil nor t).
AS-SEEN is non-nil if we are copying the message "as seen".

(fn FILE-NAME NOMSG &optional AS-SEEN)
(defalias 'rmail-output-as-mbox #[770 "\306\307
eb\210\310\311\307\312#\210e`}\210\313	\203\314\202\315!\210eb\210\316\317!\204*\320 c\210~\210db\210\321 \210eb\210\322!p\323\324\"\203M\262\325\211\224O\262
\204\313\326\211\203u\327\330\306\"r\211q\210\331\332\"\216\333!\210\334\335d\n\307\336%\210*\210\334ed	\306\n\204\205\205\206\336%\210\205\305\337\340!\306#\210\341\342\307\211\343\344\345\346\347\f&\n\325U\203\257\350!\210\202\274\337\340!\306#\210\351\352\"\210?\205\305\353\354\"*\266\202\202\n

p=\203\325\351\355!\210
q\210\306\356\305!\205\340

3\211\203\360\203\360\351\357!\210\211\203\373\360\"\202
e\361 T}\210db\210\362!)\266\204)\207" [case-fold-search rmail-enable-mime coding-system-for-read coding-system-for-write user-mail-address rmail-current-message t nil search-forward "\n\n" move rmail-delete-unwanted-fields "Mail-From" "Mail-From\\|MIME-Version\\|Content-type" looking-at "From " mail-mbox-from rmail-ensure-blank-line find-buffer-visiting string-match "[.]gpg\\'" 0 raw-text-unix generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents write-region 1 nomsg rename-file make-backup-file-name call-process "gpg" "--use-agent" "--batch" "--no-tty" "--encrypt" "-r" delete-file error "Encryption failed; %s unchanged" message "Added to %s" "Can't output message to same file it's already in" boundp "Can't output \"as seen\" to a visited Rmail file" rmail-output-to-rmail-buffer buffer-size insert-buffer-substring inhibit-read-only] 18 (#$ . 7576)])
#@168 Copy message in TEMBUF into the current Rmail buffer.
Do what is necessary to make Rmail know about the new message, then
display message number MSG.

(fn TEMBUF MSG)
(defalias 'rmail-output-to-rmail-buffer #[514 "\212\304 \210\305 \210\204	\203\306\307!\210\310 \210~\210\311 \312U\204)db\210\313 \210dd}\210\314!\210\315\307!\210\316 \203`\n\317 \203R\320 \212\321\322\"\216\323!\210
\324 \210+\210\202\\rq\210\211\324 \210*\325 \266\326
!)\207" [buffer-auto-save-file-name auto-save-default rmail-total-messages rmail-summary-buffer rmail-swap-buffers-maybe rmail-modify-format auto-save-mode t rmail-maybe-set-message-counters buffer-size 0 rmail-ensure-blank-line insert-buffer-substring rmail-count-new-messages rmail-summary-exists rmail-summary-displayed selected-window make-closure #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-update-summary rmail-maybe-display-summary rmail-show-message-1] 7 (#$ . 9754)])
#@1512 Append this message to mail file FILE-NAME.
Writes mbox format, unless FILE-NAME exists and is Babyl format, in which
case it writes Babyl.

Interactively, the default file name comes from `rmail-default-file',
which is updated to the name you use in this command.  In all uses, if
FILE-NAME is not absolute, it is expanded with the directory part of
`rmail-default-file'.

If a buffer is visiting FILE-NAME, adds the text to that buffer
rather than saving the file directly.  If the buffer is an Rmail
buffer, updates it accordingly.

This command always outputs the complete message header, even if
the header display is currently pruned.

If `rmail-output-reset-deleted-flag' is non-nil, the message's
deleted flag is reset in the message appended to the destination
file.  Otherwise, the appended message will remain marked as
deleted if it was deleted before invoking this command.

Optional prefix argument COUNT (default 1) says to output that
many consecutive messages, starting with the current one (ignoring
deleted messages, unless `rmail-output-reset-deleted-flag' is
non-nil).  If `rmail-delete-after-output' is non-nil, deletes
messages after output.

The optional third argument NOATTRIBUTE, if non-nil, says not to
set the `filed' attribute, and not to display a "Wrote file"
message (if writing a file directly).

Set the optional fourth argument NOT-RMAIL non-nil if you call this
from a non-Rmail buffer.  In this case, COUNT is ignored.

(fn FILE-NAME &optional COUNT NOATTRIBUTE NOT-RMAIL)
(defalias 'rmail-output #[1025 "\204\306\262\307\205\310!\"\262\311!\204,\312!\204,\313\314\315Q!\204,\316\317!\210
\2033\320\262\321!\205<\322!p\311!\203Z\211\203Zr\211q\210\214~\210\212eb\210\323\324!\262+\203\221\325\326\327\"r\211q\210\330\331\"\216\332!\210\203\211eb\210\323\333!\204\200\334 c\210\335\"\202\217\336\"*\207	\203\233	q\210\202\237\316\337!\210\n\340U\203\251\316\341!\210\342\211\211C	\340V\205}
\203\310\343\f!\203\310\344
\342\"\210\211\327\240\210\330\345\"\216\346\f!\262\347\f!\262\212\350 \203\3411q\210p\262\214~\210\325\326\327\"r\211q\210\330\351\"\216\332#\210\203\n
\335\f\"\210\202
\336\f\"\210*\210+\204
\3442\327\"\210	S\262\n\203E
3\2030
\352 \210	\340Y\205Y
\f\353\306!\210\f
T=\262
\202Y
3\203O
\354 \202Y
	\340V\205Y
\355\306!Z\340V\203x

\204x
\316\356\211\306U\203u
\357\202v
\360#\210\266\202\256\207" [rmail-default-file rmail-buffer rmail-total-messages rmail-output-reset-deleted-flag rmail-current-message rmail-deleted-attr-index 1 expand-file-name file-name-directory find-buffer-visiting file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " error "Output file does not exist" nomsg file-readable-p mail-file-babyl-p looking-at "BABYL OPTIONS:" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring "From " mail-mbox-from rmail-output-as-babyl rmail-output-as-mbox "There is no Rmail buffer" 0 "No messages to output" nil rmail-message-deleted-p rmail-set-attribute #[0 "\300\242\205	\302	\303\"\207" [V0 rmail-deleted-attr-index rmail-set-attribute t] 3] rmail-msgbeg rmail-msgend rmail-buffers-swapped-p #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] rmail-delete-message rmail-next-message rmail-delete-forward rmail-next-undeleted-message "Only %d message%s appended" "" "s" rmail-view-buffer rmail-filed-attr-index rmail-delete-after-output] 18 (#$ . 10719) (byte-code "\301 \302!D\207" [current-prefix-arg rmail-output-read-file-name prefix-numeric-value] 3)])
#@497 Append this message to mbox file named FILE-NAME.
The details are as for `rmail-output', except that:
  i) the header is output as currently seen
 ii) this function cannot write to Babyl files
iii) an Rmail buffer cannot be visiting FILE-NAME

Note that if NOT-RMAIL is non-nil, there is no difference between this
function and `rmail-output'.  This argument may be removed in future,
so you should call `rmail-output' directly in that case.

(fn FILE-NAME &optional COUNT NOATTRIBUTE NOT-RMAIL)
(defalias 'rmail-output-as-seen #[1025 "\211\203\306$\207\204\307\262\310\205\311!\"\262\312!\2047\313!\2047\314\315\316Q!\2047\317\320!\210\321!\203G\322!\203G\317\323!\210
\203N\324\262	\203X	q\210\202\\\317\325!\210\n\326U\203f\317\327!\210p\326V\205\357\330\211\331 \204\332!\262\333!\262
\214~\210
\204\214e\262d\262
\334\335\336\"r\211q\210\337\340\"\216\341#\210\342	\336#\210*\210)\266\204\265\343\f\336\"\210S\262
\203\302\344 \202\313\326V\205\313\345\307!Z\326V\203\352
\204\352\317\346\211\307U\203\347\347\202\350\350#\210\266\202h\207" [rmail-default-file rmail-buffer rmail-total-messages rmail-current-message rmail-filed-attr-index rmail-delete-after-output rmail-output 1 expand-file-name file-name-directory find-buffer-visiting file-exists-p yes-or-no-p "\"" "\" does not exist, create it? " error "Output file does not exist" file-readable-p mail-file-babyl-p "Cannot output `as seen' to a Babyl file" nomsg "There is no Rmail buffer" 0 "No messages to output" nil rmail-buffers-swapped-p rmail-msgbeg rmail-msgend generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring rmail-output-as-mbox rmail-set-attribute rmail-delete-forward rmail-next-undeleted-message "Only %d message%s appended" "" "s"] 13 (#$ . 14356) (byte-code "\301 \302!D\207" [current-prefix-arg rmail-output-read-file-name prefix-numeric-value] 3)])
#@524 Write this message body to the file FILE-NAME.
Interactively, the default file name comes from either the message
"Subject" header, or from `rmail-default-body-file'.  Updates the value
of `rmail-default-body-file' accordingly.  In all uses, if FILE-NAME
is not absolute, it is expanded with the directory part of
`rmail-default-body-file'.

Note that this overwrites FILE-NAME (after confirmation), rather
than appending to it.  Deletes the message after writing if
`rmail-delete-after-output' is non-nil.

(fn FILE-NAME)
(defalias 'rmail-output-body-to-file #[257 "\303
\205	\304!\"\262
	\305U\203\306\307!\210\212eb\210\310\311!\210\312
!\2031\313\314\315\"!\2041\306\316!\210\317`d#\210)\n\205>\320 \207" [rmail-default-body-file rmail-current-message rmail-delete-after-output expand-file-name file-name-directory 0 error "No message to output" search-forward "\n\n" file-exists-p y-or-n-p format "File %s exists; overwrite? " "Operation aborted" write-region rmail-delete-forward] 5 (#$ . 16349) (byte-code "\301\302!\206\303\304\305#\262
\303\306\305#\262
\307\310\205\311!\312%\211C\207" [rmail-default-body-file mail-fetch-field "Subject" string-replace ":" "-" " " read-file-name "Output message body to file: " file-name-directory nil] 7)])