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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\210\304\307\310\"\210\304\311\310\"\210\304\312\310\"\210\304\313\310\"\210\304\314\310\"\210\304\315\310\"\210\316\317\320\321\322DD\323\324\325\326\327&\210\316\330\320\321\331DD\332\324\333\326\334&\210\316\335\320\321\336DD\337\324\340\326\341&\210\316\342\320\321\343DD\344\324\340\326\327&\207" [require mail-utils mm-util gnus-util autoload gnus-remove-odd-characters "gnus-sum" gnus-range-add "gnus-range" gnus-remove-from-range gnus-sorted-intersection gnus-intersection gnus-sorted-complement gnus-sorted-difference custom-declare-variable gnus-verbose-backends funcall function #[0 "\300\207" [7] 1 #1=""] "Integer that says how verbose the Gnus backends should be.\nThe higher the number, the more messages the Gnus backends will flash\nto say what it's doing.  At zero, the Gnus backends will be totally\nmute; at five, they will display most important messages; and at ten,\nthey will keep on jabbering all the time." :group gnus-start :type integer gnus-nov-is-evil #[0 "\300\207" [nil] 1 #1#] "If non-nil, Gnus backends will never output headers in the NOV format." gnus-server boolean nnheader-max-head-length #[0 "\300\207" [8192] 1 #1#] "Max length of the head of articles.\n\nValue is an integer, nil, or t.  nil means read in chunks of a file\nindefinitely until a complete head is found; t means always read the\nentire file immediately, disregarding `nnheader-head-chop-length'.\n\nInteger values will in effect be rounded up to the nearest multiple of\n`nnheader-head-chop-length'." gnus-article-various (choice integer (const :tag "Read chunks" nil) (const :tag "Read entire file" t)) nnheader-head-chop-length #[0 "\300\207" [2048] 1 #1#] "Length of each read operation when trying to fetch HEAD headers."] 8)
#@133 How long nntp should wait between checking for the end of output.
Shorter values mean quicker response, but are more CPU intensive.
(defvar nnheader-read-timeout (byte-code "\301>\203\302\207\303\207" [system-type (windows-nt cygwin) 1.0 0.01] 2) (#$ . 1891))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\316\317\320\"\210\316\321\322\"\210\323\324\325\"\207" [custom-declare-variable nnheader-file-name-translation-alist funcall function #[0 "\301>\205\n\302\303\304\"\207" [system-type (windows-nt cygwin) mapcar #[257 "\211\300B\207" [95] 3 "\n\n(fn C)"] (58 42 34 60 62 63)] 3 #1=""] "Alist that says how to translate characters in file names.\nFor instance, if \":\" is invalid as a file character in file names\non your system, you could say something like:\n\n(setq nnheader-file-name-translation-alist \\='((?: . ?_)))" :group gnus-article-various :type (alist :key-type character :value-type character) nnheader-directory-separator-character #[0 "\300\301\302!\303\304O!\207" [string-to-char file-name-as-directory "." -1 nil] 4 #1#] "A character used as a directory separator." character autoload nnmail-message-id "nnmail" mail-position-on-field "sendmail" defalias mail-header-p vectorp] 8)
#@75 compiler-macro for inlining `mail-header-number'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-number--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-number (progn (aref cl-x 0))) nil] 9 (#$ . 3169)])
(put 'mail-header-number 'compiler-macro 'mail-header-number--cmacro)
#@63 Access slot "number" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-number #[257 "\211\300H\207" [0] 3 (#$ . 3499)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-number side-effect-free t] 4)
#@76 compiler-macro for inlining `mail-header-subject'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-subject--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-subject (progn (aref cl-x 1))) nil] 9 (#$ . 3734)])
(put 'mail-header-subject 'compiler-macro 'mail-header-subject--cmacro)
#@64 Access slot "subject" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-subject #[257 "\211\300H\207" [1] 3 (#$ . 4069)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-subject side-effect-free t] 4)
#@73 compiler-macro for inlining `mail-header-from'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-from--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-from (progn (aref cl-x 2))) nil] 9 (#$ . 4307)])
(put 'mail-header-from 'compiler-macro 'mail-header-from--cmacro)
#@61 Access slot "from" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-from #[257 "\211\300H\207" [2] 3 (#$ . 4627)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-from side-effect-free t] 4)
#@73 compiler-macro for inlining `mail-header-date'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-date--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-date (progn (aref cl-x 3))) nil] 9 (#$ . 4856)])
(put 'mail-header-date 'compiler-macro 'mail-header-date--cmacro)
#@61 Access slot "date" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-date #[257 "\211\300H\207" [3] 3 (#$ . 5176)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-date side-effect-free t] 4)
#@71 compiler-macro for inlining `mail-header-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-id (progn (aref cl-x 4))) nil] 9 (#$ . 5405)])
(put 'mail-header-id 'compiler-macro 'mail-header-id--cmacro)
#@59 Access slot "id" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-id #[257 "\211\300H\207" [4] 3 (#$ . 5715)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-id side-effect-free t] 4)
#@79 compiler-macro for inlining `mail-header-references'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-references--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-references (progn (aref cl-x 5))) nil] 9 (#$ . 5938)])
(put 'mail-header-references 'compiler-macro 'mail-header-references--cmacro)
#@67 Access slot "references" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-references #[257 "\211\300H\207" [5] 3 (#$ . 6288)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-references side-effect-free t] 4)
#@74 compiler-macro for inlining `mail-header-chars'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-chars--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-chars (progn (aref cl-x 6))) nil] 9 (#$ . 6535)])
(put 'mail-header-chars 'compiler-macro 'mail-header-chars--cmacro)
#@62 Access slot "chars" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-chars #[257 "\211\300H\207" [6] 3 (#$ . 6860)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-chars side-effect-free t] 4)
#@74 compiler-macro for inlining `mail-header-lines'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-lines--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-lines (progn (aref cl-x 7))) nil] 9 (#$ . 7092)])
(put 'mail-header-lines 'compiler-macro 'mail-header-lines--cmacro)
#@62 Access slot "lines" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-lines #[257 "\211\300H\207" [7] 3 (#$ . 7417)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-lines side-effect-free t] 4)
#@73 compiler-macro for inlining `mail-header-xref'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-xref--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-xref (progn (aref cl-x 8))) nil] 9 (#$ . 7649)])
(put 'mail-header-xref 'compiler-macro 'mail-header-xref--cmacro)
#@61 Access slot "xref" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-xref #[257 "\211\300H\207" [8] 3 (#$ . 7969)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-xref side-effect-free t] 4)
#@74 compiler-macro for inlining `mail-header-extra'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mail-header-extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mail-header-extra (progn (aref cl-x 9))) nil] 9 (#$ . 8198)])
(put 'mail-header-extra 'compiler-macro 'mail-header-extra--cmacro)
#@62 Access slot "extra" of `mail-header' struct CL-X.

(fn CL-X)
(defalias 'mail-header-extra #[257 "\211\300H\207" [9] 3 (#$ . 8523)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put mail-header-extra side-effect-free t defalias copy-mail-header copy-sequence] 4)
#@145 compiler-macro for inlining `make-full-mail-header'.

(fn CL-WHOLE-ARG &optional NUMBER SUBJECT FROM DATE ID REFERENCES CHARS LINES XREF EXTRA)
(defalias 'make-full-mail-header--cmacro #[2817 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (number subject from date id references chars lines xref extra) (cl-block make-full-mail-header (vector number subject from date id references chars lines xref extra)) nil] 27 (#$ . 8806)])
(put 'make-full-mail-header 'compiler-macro 'make-full-mail-header--cmacro)
#@126 Constructor for objects of type `mail-header'.

(fn &optional NUMBER SUBJECT FROM DATE ID REFERENCES CHARS LINES XREF EXTRA)
(defalias 'make-full-mail-header #[2560 "\300\n\n\n\n\n\n\n\n\n\n&\n\207" [vector] 21 (#$ . 9345)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306&	\210\312\313\314\"\207" [function-put make-full-mail-header side-effect-free t cl-struct-define mail-header nil vector ((number) (subject) (from) (date) (id) (references) (chars) (lines) (xref) (extra)) cl-struct-mail-header-tags defalias mail-header-message-id mail-header-id] 11)
#@80 Create a new mail header structure initialized with INIT.

(fn &optional INIT)
(defalias 'make-mail-header #[256 "\300
\211\211\211\211\211\211\211\211\211&\n\207" [vector] 12 (#$ . 9939)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put make-mail-header speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defvar nnheader-fake-message-id 1)
#@25 

(fn &optional NUMBER)
(defalias 'nnheader-generate-fake-message-id #[256 "\211\247\203\302\303#\207\302\304\305	T\211!#\207" [gnus-newsgroup-name nnheader-fake-message-id format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string] 7 (#$ . 10313)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-generate-fake-message-id speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@11 

(fn ID)
(defalias 'nnheader-fake-message-id-p #[257 "\300 \301\302\"\216\303\304\")\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'"] 5 (#$ . 10732)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-fake-message-id-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'nnheader-remove-cr-followed-by-lf #[0 "db\210\300\301\302\303#\205\304\305!\210\202\207" [search-backward "
\n" nil t delete-char 1] 4])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-remove-cr-followed-by-lf speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'nnheader-header-value #[0 "\300\301w\210`\302 {\207" [" 	" nil point-at-eol] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put nnheader-header-value speed -1 put byte-optimizer byte-compile-inline-expand autoload ietf-drums-unfold-fws "ietf-drums"] 5)
#@118 Return a full mail header with article NUMBER.
Do this using data of type `head' in the current buffer.

(fn NUMBER)
(defalias 'nnheader-head-make-header #[257 "ep\305\211\211\211\211b\210\306\307\305\310#\203 \311\305w\210`\312 {!\202!\313b\210\306\314\305\310#\203:	\311\305w\210`\312 {!\202;\315b\210\306\316\305\310#\203R\311\305w\210`\312 {\202S\317	b\210\320\321\305\310#\203g\322\224\322\225{\202\204\n\211\247\203x\323\324\n#\262
\202\204\323\325\n\326T\211!#\262
\nb\210\306\327\305\310#\203\265`\262\311\305w\210`\312 {\305\210\330\331\310#\210`T\330\332	\310#\210`{\262\202
\306\333\305\310#\205
\311\305w\210`\312 {\211\262\n\205
\334\335\n\"\205
\305	\336\224\336\225O\262\334\335\336\225#\203\377	\336\224\336\225O\262
\211GGV\203\335\211\262\202\335\262
b\210\306\337\305\310#\203,
\3401
\341!0\202
\210\305\211\262\n\247\203(
\202-
\342\202-
\342\fb\210\306\343\305\310#\203W
\3441E
\341\f!0\202G
\210\305\211\262\n\247\203S
\202X
\342\202X
\342
b\210\306\345\305\310#\205l
\311\305w\210`\312 {\f\205\240
\f\305
\203\236
b\210\306\346\347@!\350Q\305\310#\203\227

@\311\305w\210`\312 {B
B\262

A\262\202r
\262
\351\n\n\n\n\n\n\n\n\n&\n\207" [gnus-decode-encoded-word-function gnus-decode-encoded-address-function gnus-newsgroup-name nnheader-fake-message-id nnmail-extra-headers nil search-forward "\nsubject:" t " 	" point-at-eol "(none)" "\nfrom:" "(nobody)" "\ndate:" "" re-search-forward "^message-id: *\\(<[^\n	> ]+>\\)" 1 format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string "\nreferences:" search-backward ">" "<" "\nin-reply-to:" string-match "<[^>]+>" 0 "\nchars: " (error) read -1 "\nlines: " (error) "\nxref:" "\n" symbol-name ":" vector] 28 (#$ . 11744)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-head-make-header speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@465 Parse data of type `header' in the current buffer and return a mail header.
Modify the buffer contents in the process.  The buffer is assumed
to begin each header with an "Article retrieved" line with an
article number; if NAKED is non-nil this line is assumed absent,
and the buffer should contain a single header's worth of data.
If TEMP is non-nil the data is first copied to a temporary buffer
leaving the original buffer untouched.

(fn &optional NAKED TEMP)
(defalias 'nnheader-parse-head #[512 "p\306ed\307\2040\310\311\307\312#\205_\313!\262`\262\314\315\307\312#\203)`\316Zb\202*`\211\262\205_\203E\317\320!\211\262q\210\321#\210\202I}\210\312\307\211
db\210\322\323\307\312#\203b\324\325!\210\202S\326 \210\327ed\330\331\312%\210\327ed\332\331\312%\210eb\210\333c\210ep\307\211\211\211\211b\210\314\334\307\312#\203\235\n\335\307w\210`\336 {!\202\236\337b\210\314\340\307\312#\203\267\335\307w\210`\336 {!\202\270\341b\210\314\342\307\312#\203\317\335\307w\210`\336 {\202\320\343	b\210\310\344\307\312#\203\344\325\224\325\225{\202

\n\211\247\203\365\345\346\f#\262
\202

\345\347\f\350
T\211!#\262
\nb\210\314\351\307\312#\2032
`\262\335\307w\210`\336 {\307\210\322\352\312#\210`T\322\353	\312#\210`{\262\202
\314\354\307\312#\205
\335\307w\210`\336 {\211\262\n\205
\355\356\n\"\205
\307	\306\224\306\225O\262\355\356\306\225#\203|
	\306\224\306\225O\262
\211GGV\203Z
\211\262\202Z
\262
b\210\314\357\307\312#\203\251
\3601\227
\313!0\202\231
\210\307\211\262\n\247\203\245
\202\252
\361\202\252
\361\fb\210\314\362\307\312#\203\324
\3631\302
\313\f!0\202\304
\210\307\211\262\n\247\203\320
\202\325
\361\202\325
\361
b\210\314\364\307\312#\205\351
\335\307w\210`\336 {9\2059\307
\203b\210\314\333\365@!\366Q\307\312#\203
@\335\307w\210`\336 {B
B\262

A\262\202\361
\262
\367\n\n\n\n\n\n\n\n\n&\n\266\221\262
eb\210\324\325!\210\203M\370!\210\202Rdb\210~\210:\203\\:
!\210*\266\202\207" [buffer-read-only case-fold-search gnus-decode-encoded-word-function gnus-decode-encoded-address-function gnus-newsgroup-name nnheader-fake-message-id 0 nil re-search-forward "^[23][0-9]+ " t read search-forward "\n.\n" 2 generate-new-buffer " *nnheader-temp*" insert-buffer-substring search-backward "
\n" delete-char 1 ietf-drums-unfold-fws subst-char-in-region 9 32 13 "\n" "\nsubject:" " 	" point-at-eol "(none)" "\nfrom:" "(nobody)" "\ndate:" "" "^message-id: *\\(<[^\n	> ]+>\\)" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string "\nreferences:" ">" "<" "\nin-reply-to:" string-match "<[^>]+>" "\nchars: " (error) -1 "\nlines: " (error) "\nxref:" symbol-name ":" vector kill-buffer nnmail-extra-headers gnus-alter-header-function] 38 (#$ . 13665)])
(defalias 'nnheader-nov-skip-field '(macro . #[0 "\300\207" [(search-forward "	" eol 'move)] 1]))
(defalias 'nnheader-nov-field '(macro . #[0 "\300\207" [(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol))] 1]))
(defalias 'nnheader-nov-read-integer '(macro . #[0 "\300\207" [(prog1 (if (eq (char-after) 9) 0 (let ((num (condition-case nil (read (current-buffer)) (error nil)))) (if (numberp num) num 0))) (or (eobp) (forward-char 1)))] 1]))
(defalias 'nnheader-nov-parse-extra '(macro . #[0 "\300\207" [(let (out string) (while (not (memq (char-after) '(10 nil))) (setq string (nnheader-nov-field)) (when (string-match "^\\([^ :]+\\): " string) (push (cons (intern (match-string 1 string)) (substring string (match-end 0))) out))) out)] 1]))
(defvar nnheader-uniquify-message-id nil)
#@25 

(fn &optional NUMBER)
(defalias 'nnheader-nov-read-message-id '(macro . #[256 "\301\302\303\304\203\f\305\202
\306\307DFE\207" [nnheader-uniquify-message-id let ((id (nnheader-nov-field))) if (string-match "^<[^>]+>$" id) (if (string-match "__[^@]+@" id) (concat (substring id 0 (match-beginning 0)) (substring id (1- (match-end 0)))) id) id nnheader-generate-fake-message-id] 8 (#$ . 17247)]))
(byte-code "\300\301\302\"\210\303\304\305\"\207" [defalias nnheader-nov-make-header nnheader-parse-nov autoload gnus-extract-message-id-from-in-reply-to "gnus-sum"] 3)
#@25 

(fn &optional NUMBER)
(defalias 'nnheader-parse-nov #[256 "\304 \305\211\211\211\2065\305f\306=\203\307\202.\3101 \311p!0\202\"\210\305\211\247\203+\211\202,\307\262
m\2045\312u\210\3131V\314`\315\316\n\317#\203J`S\202L{\211\262!!0\202X\210\3201y\314	`\315\316\317#\203m`S\202o	{\211\262!!0\202{\210`\315\316\n\317#\203\212`S\202\214{`\315\316\317#\203\234`S\202\236	{\321\322\"\203\252\211\202\307\n\211\247\203\273\323\324\n#\262
\202\307\323\325\n\326T\211!#\262
\262
`\315\316\f\317#\203\330`S\202\332\n{\211\262\n\305f\306=\203\351\307\202
\3271\364\311p!0\202\366\210\305\211\247\203\377\211\202
\307\262
m\204	
\312u\210\305f\306=\203
\307\202-
\3301
\311p!0\202!
\210\305\211\247\203*
\211\202+
\307\262
m\2044
\312u\210m?\205U
\331\332!\203C
\307\225b\210`\315\316\317#\203R
`S\202T

{\305\211\305f\333>\204\214
`\315\316\317#\203m
`S\202o
{\262
\321\334\"\203W
\335\336\312\"!
\307\225\305OBB\262\202W

\266\202\337\n\n\n\n\n\n\n\n\n\n&\n\266\212\262
\340\230\203\312
\211\306H\211\262\203\312
\341\236A\211\262\203\312
\211\342\343!I\210\207" [gnus-decode-encoded-word-function gnus-decode-encoded-address-function gnus-newsgroup-name nnheader-fake-message-id point-at-eol nil 9 0 (error) read 1 (error) gnus-remove-odd-characters search-forward "	" move (error) string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string (error) (error) looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string vector "" In-Reply-To 5 gnus-extract-message-id-from-in-reply-to] 27 (#$ . 17824)])
#@15 

(fn HEADER)
(defalias 'nnheader-insert-nov #[257 "\300
\301Hp\"\210`\302\303H\206\304\302\305H\206\306\302\307H\206!\310\302\311H\206+\312 \302\n\313H\2064\310\302\261\210\300\314H\206@\301p\"\210\302c\210\300\315H\206N\301p\"\210\302c\210
\316H\203a\317\316H\261\210
\316H\204m
\320H\203p\302c\210
\320H\203\235
\320H\211\203\234\321
@@!\322@A;\203\220@A\202\221\310\302\261\210\211A\262
\202y\210\323c\210\324u\210\325\323\326#\203\262\327\303!\210\202\243\303y\207" [princ 0 "	" 1 "(none)" 2 "(nobody)" 3 "" 4 nnmail-message-id 5 6 7 8 "Xref: " 9 symbol-name ": " "\n" -1 search-backward t delete-char] 13 (#$ . 19441)])
#@43 Write HEADERS to FILE.

(fn FILE HEADERS)
(defalias 'nnheader-write-overview-file #[514 "\300\301\302\"\303\304\"\216r\211q\210\305\306\")r
q\210\307\310\211\310\311%\210*\207" [generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mapcar nnheader-insert-nov write-region nil 0] 10 (#$ . 20108)])
#@15 

(fn HEADER)
(defalias 'nnheader-insert-header #[257 "\300
\301H\206\302\303\304\305H\206\306\303\307\310H\206\311\303\312\n\313H\206&\314 \303\315
\316H\2060\311\303\317\261\210\320
\321H\206=\322p\"\210\323c\207" ["Subject: " 1 "(none)" "\n" "From: " 2 "(nobody)" "Date: " 3 "" "Message-ID: " 4 nnmail-message-id "References: " 5 "Lines: " princ 7 0 "\n\n"] 17 (#$ . 20478)])
#@16 

(fn ARTICLE)
(defalias 'nnheader-insert-article-line #[257 "eb\210\300c\210\301
p\"\210\302c\210\303\304\305\306#\210`d|\210\307u\210\310c\207" ["220 " princ " Article retrieved.\n" search-forward "\n\n" nil move -1 "."] 5 (#$ . 20878)])
#@75 Delete all NOV lines that lie outside the BEG to END range.

(fn BEG END)
(defalias 'nnheader-nov-delete-outside-range #[514 "\300!\210e`|\210\300
!\203\301y\210`d|\207" [nnheader-find-nov-line 1] 4 (#$ . 21124)])
#@197 Put point at the NOV line that start with ARTICLE.
If ARTICLE doesn't exist, put point where that line
would have been.  The function will return non-nil if
the line could be found.

(fn ARTICLE)
(defalias 'nnheader-find-nov-line #[257 "debpe\300\211\211\204eZ\301\245\\b\210\302 \210`U\204#m\203)\303\262
\202`\262\304!\211\262\247\204Em\204E\305 \306y\210`|\210\202,
V\203R`\262\202
W\203_`\262\202\307\262
\202
\204rm\204r\304!\262\211\307=\204\261
=\204\261`\262
`W\203\247
\247\203\225
W\203\247\306y\210`\262
m\204\202\304!\262\202\202
=\204\261\211b\210\302 \210
=\207" [nil 2 beginning-of-line t read point-at-bol 1 yes] 10 (#$ . 21348)])
(defvar nntp-server-buffer nil)
(defvar nntp-process-response nil)
#@46 Coding system used in file backends of Gnus.
(defvar nnheader-file-coding-system 'undecided (#$ . 22123))
(defvar nnheader-callback-function nil)
(autoload 'gnus-get-buffer-create "gnus")
#@51 Initialize the Gnus-backend communication buffer.
(defalias 'nnheader-init-server-buffer #[0 "\211\205\303\304!\211\262!\205\211\262
\204\305\306!rq\210\307 \210\310 \210\311 \210\312\313\302!\210\314)\312\207" [nntp-server-buffer case-fold-search nntp-process-response buffer-live-p get-buffer gnus-get-buffer-create " *nntpd*" erase-buffer mm-enable-multibyte kill-all-local-variables t make-local-variable nil] 4 (#$ . 22317)])
#@63 Return a string that says what is wrong with FILE.

(fn FILE)
(defalias 'nnheader-file-error #[257 "\300\301!\204\302\202\303!\203\304\202\305!?\205\306\"\207" [format file-exists-p "%s does not exist" file-directory-p "%s is a directory" file-readable-p "%s is not readable"] 4 (#$ . 22767)])
#@44 Insert the head of the article.

(fn FILE)
(defalias 'nnheader-insert-head #[257 "\304
!\205O\305=\203\306
!\210\202N\307`\310\n\311\312\211\n\\\211\262$A@=\203?\313\314\312\305#?db\210\203?\203
W\204\315!\203K\316
d#\210)\266\305\207" [nnheader-max-head-length coding-system-for-read nnheader-head-chop-length nnheader-file-coding-system file-exists-p t nnheader-insert-file-contents 0 binary mm-insert-file-contents nil re-search-forward "\n
?\n\\|

" mm-coding-system-p decode-coding-region] 10 (#$ . 23081)])
#@55 Say whether the current buffer looks like an article.
(defalias 'nnheader-article-p #[0 "eb\210\300\301\302\303#\205#e`S}\210eb\210\304\305!\203 \306\225b\210\202m~\210\207" [search-forward "\n\n" nil t looking-at "[a-zA-Z][^ 	]+:.*\n\\([ 	].*\n\\)*\\|From .*\n" 0] 4 (#$ . 23621)])
#@92 Insert a References header based on REFERENCES and MESSAGE-ID.

(fn REFERENCES MESSAGE-ID)
(defalias 'nnheader-insert-references #[514 "
?\205\211??\2056\302\303!\210\304 \305\306\203c\210\203'
\203'\307c\210
\203.
c\210\310
`T\"*\262
\207" [fill-prefix fill-column mail-position-on-field "References" point-at-bol 78 "	" " " fill-region-as-paragraph] 6 (#$ . 23914)])
#@64 Remove HEADER and insert the NEW-VALUE.

(fn HEADER NEW-VALUE)
(defalias 'nnheader-replace-header #[514 "\300\301!\210\212\214\302 \210\303!db\210\304\305\261\210*\207" [require message nnheader-narrow-to-headers message-remove-header ": " "\n"] 7 (#$ . 24302)])
#@35 Narrow to the head of an article.
(defalias 'nnheader-narrow-to-headers #[0 "~\210eb\300\301\302\303#\203`S\202d}\210eb\207" [search-forward "\n\n" nil t] 5 (#$ . 24575)])
#@59 Return the number of lines and chars in the article body.
(defalias 'nnheader-get-lines-and-char #[0 "eb\210\300\301\302\303#\204\304\211D\207\305`d\"d`ZD\207" [re-search-forward "\n
?\n" nil t 0 count-lines] 4 (#$ . 24757)])
#@57 Remove the body from an article in this current buffer.
(defalias 'nnheader-remove-body #[0 "eb\210\300\301\302\303#\205`d|\207" [re-search-forward "\n
?\n" nil t] 4 (#$ . 24991)])
#@107 Set-buffer to an empty (possibly new) buffer called NAME with undo disabled.

(fn NAME &optional NOERASE)
(defalias 'nnheader-set-temp-buffer #[513 "\300!q\210\301 \210\211\204\302 \210p\207" [gnus-get-buffer-create buffer-disable-undo erase-buffer] 4 (#$ . 25181)])
#@36 Regexp that match numerical files.
(defvar nnheader-numerical-files (byte-code "\301\300!\203\302\303\304\305#\306Q\207\307\207" [jka-compr-compression-info-list boundp "\\([0-9]+\\)\\(" mapconcat #[257 "\211\300H\207" [0] 3 "\n\n(fn I)"] "\\|" "\\)?" "[0-9]+$"] 5) (#$ . 25457))
#@43 Regexp that matches numerical file names.
(defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) (#$ . 25746))
#@48 Regexp that matches numerical full file names.
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) (#$ . 25885))
#@60 Take a FILE name and return the article number.

(fn FILE)
(defalias 'nnheader-file-to-number #[257 "\301\230\203\n\302
!\207\303\"\210\302\304\305\"!\207" [nnheader-numerical-short-files "^[0-9]+$" string-to-number string-match match-string 0] 5 (#$ . 26028)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-file-to-number speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@231 If non-nil, Gnus believes `directory-files' is safe.
It has been reported numerous times that `directory-files' fails with
an alarming frequency on NFS mounted file systems.  If it is nil,
`nnheader-directory-files-safe' is used.
(defvar nnheader-directory-files-is-safe (byte-code "\301=?\207" [system-type windows-nt] 2) (#$ . 26451))
#@81 Execute `directory-files' twice and returns the longer result.

(fn &rest ARGS)
(defalias 'nnheader-directory-files-safe #[128 "\300\301\"\300\301\"
G
GV\203
\207\207" [apply directory-files] 5 (#$ . 26795)])
#@64 Return a list of all article files in directory DIR.

(fn DIR)
(defalias 'nnheader-directory-articles #[257 "\302\303\203\304\305	\306$\202\307\305	\306$\"\207" [nnheader-directory-files-is-safe nnheader-numerical-short-files mapcar nnheader-file-to-number directory-files nil t nnheader-directory-files-safe] 8 (#$ . 27014)])
#@57 Return an alist of article/file pairs in DIR.

(fn DIR)
(defalias 'nnheader-article-to-file-alist #[257 "\302\303\203\304\305	\306$\202\307\305	\306$\"\207" [nnheader-directory-files-is-safe nnheader-numerical-short-files mapcar #[257 "\211\301\230\203\302
!\262
\202\303\"\210\302\304\305\"!\262

B\207" [nnheader-numerical-short-files "^[0-9]+$" string-to-number string-match match-string 0] 6 "\n\n(fn FILE)"] directory-files nil t nnheader-directory-files-safe] 8 (#$ . 27354)])
#@48 Fold continuation lines in the current buffer.
(defalias 'nnheader-fold-continuation-lines #[0 "\300\301\302\"\207" [nnheader-replace-regexp "\\(
?\n[ 	]+\\)+" " "] 3 (#$ . 27858)])
#@113 Translate FILE into something that can be a file name.
If FULL, translate everything.

(fn FILE &optional FULL)
(defalias 'nnheader-translate-file-chars #[513 "\204
\207\301\302\211\211\211\2031\303!\262\304\262\305GW\203+\305H\306=\203+\307\202,\301\262\202=\310!\262\311!\262G\262

W\203_H\236A\211\262\203XI\210T\262\202A
P\207" [nnheader-file-name-translation-alist 0 nil copy-sequence "" 1 58 2 file-name-nondirectory file-name-directory] 10 (#$ . 28047)])
#@109 Report an error from the BACKEND.
The first string in ARGS can be a format string.

(fn BACKEND &rest ARGS)
(defalias 'nnheader-report #[385 "\300\301\302\"!
G\303W\203
@\202\304\301\"L\210\305\207" [intern format "%s-status-string" 2 apply nil] 6 (#$ . 28553)])
#@56 Get the most recent report from BACKEND.

(fn BACKEND)
(defalias 'nnheader-get-report-string #[257 "\3001\301\302\303\301\304\"!J\"0\207\210\305\207" [(error) format "%s" intern "%s-status-string" ""] 7 (#$ . 28828)])
#@56 Get the most recent report from BACKEND.

(fn BACKEND)
(defalias 'nnheader-get-report #[257 "\300\301\302!\"\207" [nnheader-message 5 nnheader-get-report-string] 5 (#$ . 29055)])
#@186 Clear the communication buffer and insert FORMAT and ARGS into the buffer.
If FORMAT isn't a format string, it and all ARGS will be inserted
without formatting.

(fn FORMAT &rest ARGS)
(defalias 'nnheader-insert #[385 "rq\210\301 \210\302\303\"\203\304\305#c\210\202\304\306#\210)\307\207" [nntp-server-buffer erase-buffer string-search "%" apply format insert t] 6 (#$ . 29242)])
#@23 

(fn STRING FROM TO)
(defalias 'nnheader-replace-chars-in-string #[771 "\300#\207" [subst-char-in-string] 7 (#$ . 29639)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put nnheader-replace-chars-in-string speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@68 Replace characters in STRING from FROM to TO.

(fn STRING FROM TO)
(defalias 'nnheader-replace-duplicate-chars-in-string #[771 "\300\301OG\300\301\211W\2039H\262

=\203/\211U\203/SI\210I\210\211\262T\262\202	\207" [0 nil] 11 (#$ . 29930)])
#@69 Return a group name based on FILE and TOP.

(fn FILE &optional TOP)
(defalias 'nnheader-file-to-group #[513 "\211\204
\202\3011\302!\302\303!!G\304O0\202\210\305\306\307#\207" [nnheader-directory-separator-character (error) expand-file-name file-name-as-directory nil "" 46 subst-char-in-string] 9 (#$ . 30202)])
#@68 Message if the Gnus backends are talkative.

(fn LEVEL &rest ARGS)
(defalias 'nnheader-message #[385 "\302\247\203V\203\303\202	\203\304\202\305\"\207" [gnus-verbose-backends gnus-add-timestamp-to-message apply format gnus-message-with-timestamp message] 5 (#$ . 30535)])
#@69 Return whether the backends should be verbose on LEVEL.

(fn LEVEL)
(defalias 'nnheader-be-verbose #[257 "\247?\206	\211X\207" [gnus-verbose-backends] 3 (#$ . 30827)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable nnheader-pathname-coding-system funcall function #[0 "\300\207" [iso-8859-1] 1 ""] "Coding system for file name." :group gnus-article-various :type coding-system] 8)
#@58 Make file name for GROUP.

(fn GROUP DIR &optional FILE)
(defalias 'nnheader-group-pathname #[770 "\301\302!!\301\303P!\203\302\"\202'\302\304\305\306\307#\266\203\"\"!\262

\2042\310\202>
\247\203=\311!\202>
P\207" [nnheader-pathname-coding-system file-name-as-directory expand-file-name file-directory-p encode-coding-string 46 47 subst-char-in-string "" int-to-string] 14 (#$ . 31257)])
#@57 Concat DIR as directory to FILES.

(fn DIR &rest FILES)
(defalias 'nnheader-concat #[385 "\300\301\302!#\207" [apply concat file-name-as-directory] 6 (#$ . 31674)])
#@37 Strip ^M from the end of all lines.
(defalias 'nnheader-ms-strip-cr #[0 "\212db\210\300\301\302\303#\205\304\305!\210\202)\207" [search-backward "
\n" nil t delete-char 1] 4 (#$ . 31847)])
#@47 Return the file size of FILE or 0.

(fn FILE)
(defalias 'nnheader-file-size #[257 "\300
!\301
8\262
\206\f\302\207" [file-attributes 7 0] 4 (#$ . 32046)])
#@399 Go through `load-path' and find the "../etc/PACKAGE" directory.
This function will look in the parent directory of each `load-path'
entry, and look for the "etc" directory there.
If FILE, find the ".../etc/PACKAGE" file instead.
If FIRST is non-nil, return the directory or the file found at the
first.  Otherwise, find the newest one, though it may take a time.

(fn PACKAGE &optional FILE FIRST)
(defalias 'nnheader-find-etc-directory #[769 "\301\211\203P@\203I\302\303\304@!!\305\203\306\202 \307R\211\262!\203I\2042\310!\203I

\235\204=

B\262
?\205DA\262\202A\262\202\204Y\211A\204\\\211@\207\311
\312\"@\207" [load-path nil file-exists-p file-name-directory directory-file-name "etc/" "" "/" file-directory-p sort file-newer-than-file-p] 11 (#$ . 32209)])
#@66 Re-read directory PATH if PATH is on a remote system.

(fn PATH)
(defalias 'nnheader-re-read-dir #[257 "\302\303!\203\304\300!\203\305\"\205.\303
!\207\302\306!\205.\304\301!\205.\305	@\"\205.\306
!\207" [efs-path-regexp ange-ftp-path-format fboundp efs-re-read-dir boundp string-match ange-ftp-re-read-dir] 4 (#$ . 33010)])
#@354 Like `insert-file-contents', q.v., but only reads in the file.
A buffer may be modified in several ways after reading into the buffer due
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hook, etc.
  This function ensures that none of these modifications will take place.

(fn FILENAME &optional VISIT BEG END REPLACE)
(defalias 'nnheader-insert-file-contents #[1281 "\302%)\207" [nnheader-file-coding-system coding-system-for-read mm-insert-file-contents] 11 (#$ . 33353)])
#@19 

(fn FILE FIRST)
(defalias 'nnheader-insert-nov-file #[514 "\300!\301
8\262
\211\205V\211\302W\203\303!\207\304\303\304\302Z$\210eb\210`\305\306\304\307#\206-`|\210\3101:\311p!0\202<\210\304\262
\211\247\203M\211W\203M\312\202Ted|\210\303!\262
\207" [file-attributes 7 32768 nnheader-insert-file-contents nil search-forward "\n" move (error) read t] 9 (#$ . 33875)])
#@101 Open a file with some variables bound.
See `find-file-noselect' for the arguments.

(fn &rest ARGS)
(defalias 'nnheader-find-file-noselect #[128 "\306\307 \310\311!\312\313\"\216\314\311\315\"\210\306\211\306
\316\306\317\320\".\262
*\207" [format-alist auto-mode-alist enable-local-variables after-insert-file-functions enable-local-eval nnheader-file-coding-system nil mm-auto-mode-alist default-value major-mode make-closure #[0 "\301\302\300\"\207" [V0 set-default major-mode] 3] set-default fundamental-mode never apply find-file-noselect coding-system-for-read version-control find-file-hook] 6 (#$ . 34266)])
#@54 Return a list of all regular files in DIR.

(fn DIR)
(defalias 'nnheader-directory-regular-files #[257 "\300
\301\"\302
\203\303@!\203
@
B\262

A\262\202\211\237\207" [directory-files t nil file-regular-p] 5 (#$ . 34902)])
#@69 Same as `directory-files', but prune "." and "..".

(fn &rest ARGS)
(defalias 'nnheader-directory-files #[128 "\300\301\"\302
\203\303@!\304\235\204
@
B\262

A\262\202\211\237\207" [apply directory-files nil file-name-nondirectory ("." "..")] 5 (#$ . 35139)])
#@33 

(fn FROM &optional TO REGEXP)
(defalias 'nnheader-skeleton-replace '(macro . #[769 "\300\301\302\303\304\203
\305\202\306\307BB\310\311	\205\312\nD\313BBBBB\314BBBBB\207" [let ((new (generate-new-buffer " *nnheader replace*")) (cur (current-buffer)) (start (point-min))) (set-buffer cur) (goto-char (point-min)) while re-search-forward search-forward (nil t) (insert-buffer-substring cur start (prog1 (match-beginning 0) (set-buffer new))) (goto-char (point-max)) insert ((set-buffer cur) (setq start (point))) ((insert-buffer-substring cur start (prog1 (point-max) (set-buffer new))) (copy-to-buffer cur (point-min) (point-max)) (kill-buffer (current-buffer)) (set-buffer cur))] 13 (#$ . 35414)]))
#@78 Do a fast replacement of FROM to TO from point to `point-max'.

(fn FROM TO)
(defalias 'nnheader-replace-string #[514 "\300\301!pe
q\210eb\210\302\303\304#\203-\305\306\224q\210#\210db\210c\210
q\210`\262
\202\305dq\210#\210\307ed#\210\310p!\210
q\207" [generate-new-buffer " *nnheader replace*" search-forward nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 10 (#$ . 36131)])
#@85 Do a fast regexp replacement of FROM to TO from point to `point-max'.

(fn FROM TO)
(defalias 'nnheader-replace-regexp #[514 "\300\301!pe
q\210eb\210\302\303\304#\203-\305\306\224q\210#\210db\210c\210
q\210`\262
\202\305dq\210#\210\307ed#\210\310p!\210
q\207" [generate-new-buffer " *nnheader replace*" re-search-forward nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 10 (#$ . 36540)])
#@40 Strip all 
's from the current buffer.
(defalias 'nnheader-strip-cr #[0 "\300\301!pe
q\210eb\210\302\303\304\305#\203*\306\307\224q\210#\210db\210
q\210`\262
\202\306dq\210#\210\310ed#\210\311p!\210
q\207" [generate-new-buffer " *nnheader replace*" search-forward "
" nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 8 (#$ . 36959)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\207" [defalias nnheader-cancel-timer cancel-timer nil make-obsolete "27.1" nnheader-cancel-function-timers cancel-function-timers] 4)
#@16 

(fn PROCESS)
(defalias 'nnheader-accept-process-output #[257 "\301
\"\207" [nnheader-read-timeout accept-process-output] 4 (#$ . 37549)])
#@30 

(fn BACKEND-MARKS ACTIONS)
(defalias 'nnheader-update-marks-actions #[514 "\211\211\203S\211@\211@
A@\3008\211\211\203J\211@\301
\302\267\202=\303\304
\"A\"\202>\305\304
\"A\"\202>\202>\306#\262	
A\266\202\202\266
A\266\202\202
\210
\207" [2 gnus-update-alist-soft #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (add 30 del 43 set 56)) gnus-range-add assoc gnus-remove-from-range nil] 15 (#$ . 37696)])
#@95 Copy string from unibyte buffer to multibyte current buffer.

(fn BUFFER &optional START END)
(defalias 'nnheader-insert-buffer-substring '(macro . #[769 "\300\301\204\203\302\303\304BB\303\305BBE\202\306ED\207" [insert with-current-buffer buffer-substring or ((point-min)) ((point-max)) (buffer-string)] 11 (#$ . 38169)]))
(defvar nnheader-last-message-time '(0 0))
#@19 

(fn &rest ARGS)
(defalias 'nnheader-message-maybe #[128 "\301 \302\303\304\"\"\205\211\305\306\"\207" [nnheader-last-message-time current-time time-less-p 1 time-subtract apply nnheader-message] 7 (#$ . 38555)])
(byte-code "\300\301\302\303#\210\304\301!\210\305\306!\207" [make-obsolete-variable nnheader-load-hook "use `with-eval-after-load' instead." "28.1" run-hooks provide nnheader] 4)