;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require rmail rmailsum nnmail] 2)#@199 Append the current article to an Rmail file named FILENAME.
In Emacs 22 this writes Babyl format; in Emacs 23 it writes mbox unless
FILENAME exists and is Babyl format.

(fn FILENAME &optional ASK)
(defalias 'gnus-output-to-rmail #[513 "\306!\262\307\300!\203 \202 p\310\311!\312\313!\212\314!\204b \315!\203. \316!\262\202b \203< \317\320\321Q!\203^ \322!r\211q\210\312\313!\203L \313 \210\323\n\324!+\210\325!\266\202b \326\327!\210q\210\330 \210\331!\210\211\203v \332 \210\202\240 eb\210\333\334!\203\205 \335y\210\202\214 \336\337 \340\261\210\323\341\342\323\343#\203\237 \344 \210\345c\210\202\216 )\314!\211\204\330 \204\310 \3239db\210\346u\210\333\347!\204\307 db\210n\204\304 \340c\210\340c\210):;\350ed#)\266\202f\211q\210\323\307\351!\205\344 \351J9\211\203\f\204\365 \352 \210\353 \210~\210\204db\210n\204\340c\210\340c\210dd}\210\331!\210\211\203a\203%eb\210~\210\354\355!\210`d}\210\356\343!\210\357 \203]<\360 \203M\361 \212\362\363\"\216\364=!\210<\365 +\266\202Yr=q\210\211<\365 *\210\366 \266\367!\210\370 )\266)\325!\207" [rmail-default-rmail-file rmail-default-file mm-text-coding-system coding-system-for-write require-final-newline case-fold-search expand-file-name boundp gnus-get-buffer-create " *Gnus-output*" fboundp rmail-insert-rmail-file-header get-file-buffer file-exists-p mail-file-babyl-p gnus-yes-or-no-p "\"" "\" does not exist, create it? " create-file-buffer nil gnus-write-buffer kill-buffer error "Output file does not exist" erase-buffer insert-buffer-substring gnus-convert-article-to-rmail looking-at "From " 1 "From nobody " current-time-string "\n" re-search-forward "^From " t beginning-of-line ">" -2 "\n\n" mm-append-to-file rmail-current-message rmail-swap-buffers-maybe rmail-maybe-set-message-counters 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 save-buffer buffer-read-only nnmail-pathname-coding-system file-name-coding-system rmail-total-messages rmail-summary-buffer] 13 (#$ . 172)])#@60 Convert article in current buffer to Rmail message format.
(defalias 'gnus-convert-article-to-rmail #[0 "\301eb\210\302c\210\303\304\301\305#\203 \306\307\305\211#\210\202 db\210\310c)\207" [buffer-read-only nil "\f\n0, unseen,,\n*** EOOH ***\n" search-forward "\n" t replace-match "\n^_" ""] 4 (#$ . 2387)])