;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnheader.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\311\312\313\"\210\311\314\313\"\210\311\315\313\"\210\311\316\313\"\210\311\317\313\"\210\311\320\313\"\210\321\322\323\324\325\326\327\330&\210\321\331\332\333\325\334\327\335&\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require mail-utils mm-util gnus-util autoload 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 7 "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 nil "If non-nil, Gnus backends will never output headers in the NOV format." gnus-server boolean] 8)
#@344 *Max length of the head of articles.

Value is an integer, nil, or t.  nil means read in chunks of a file
indefinitely until a complete head is found; t means always read the
entire file immediately, disregarding `nnheader-head-chop-length'.

Integer values will in effect be rounded up to the nearest multiple of
`nnheader-head-chop-length'.
(defvar nnheader-max-head-length 8192 (#$ . -1604))
#@67 *Length of each read operation when trying to fetch HEAD headers.
(defvar nnheader-head-chop-length 2048 (#$ . -2005))
#@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\302\303!\"\203\304\207\305\207" [system-type string-match "windows-nt\\|os/2\\|cygwin" symbol-name 1.0 0.01] 4) (#$ . 2131))
#@231 *Alist that says how to translate characters in file names.
For instance, if ":" is invalid as a file character in file names
on your system, you could say something like:

(setq nnheader-file-name-translation-alist '((?: . ?_)))
(defvar nnheader-file-name-translation-alist (byte-code "\302\303\304\305	!\"\203\306\307\310\311\"\303\312\305	!\"?\205\313\"\202 \314)\207" [case-fold-search system-type t string-match "windows-nt\\|os/2\\|cygwin" symbol-name append mapcar #[(c) "\301B\207" [c 95] 2] (58 42 34 60 62 63) "windows-nt\\|cygwin" ((43 . 45)) nil] 6) (#$ . -2445))
#@45 *A character used to a directory separator.
(defvar nnheader-directory-separator-character (byte-code "\300\301\302!\303\304O!\207" [string-to-char file-name-as-directory "." -1 nil] 4) (#$ . -3034))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [autoload nnmail-message-id "nnmail" mail-position-on-field "sendmail" gnus-buffer-live-p "gnus-util"] 3)
#@34 Return article number in HEADER.
(defalias 'mail-header-number '(macro . #[(header) "\301\302BB\207" [header aref (0)] 3 (#$ . 3414)]))
#@41 Set article number of HEADER to NUMBER.
(defalias 'mail-header-set-number '(macro . #[(header number) "\302\303	F\207" [header number aset 0] 4 (#$ . 3557)]))
#@34 Return subject string in HEADER.
(defalias 'mail-header-subject '(macro . #[(header) "\301\302BB\207" [header aref (1)] 3 (#$ . 3723)]))
#@43 Set article subject of HEADER to SUBJECT.
(defalias 'mail-header-set-subject '(macro . #[(header subject) "\302\303	F\207" [header subject aset 1] 4 (#$ . 3867)]))
#@33 Return author string in HEADER.
(defalias 'mail-header-from '(macro . #[(header) "\301\302BB\207" [header aref (2)] 3 (#$ . 4038)]))
#@39 Set article author of HEADER to FROM.
(defalias 'mail-header-set-from '(macro . #[(header from) "\302\303	F\207" [header from aset 2] 4 (#$ . 4178)]))
#@24 Return date in HEADER.
(defalias 'mail-header-date '(macro . #[(header) "\301\302BB\207" [header aref (3)] 3 (#$ . 4336)]))
#@37 Set article date of HEADER to DATE.
(defalias 'mail-header-set-date '(macro . #[(header date) "\302\303	F\207" [header date aset 3] 4 (#$ . 4467)]))
(defalias 'mail-header-message-id 'mail-header-id)
#@22 Return Id in HEADER.
(defalias 'mail-header-id '(macro . #[(header) "\301\302BB\207" [header aref (4)] 3 (#$ . 4674)]))
(defalias 'mail-header-set-message-id 'mail-header-set-id)
#@33 Set article Id of HEADER to ID.
(defalias 'mail-header-set-id '(macro . #[(header id) "\302\303	F\207" [header id aset 4] 4 (#$ . 4860)]))
#@30 Return references in HEADER.
(defalias 'mail-header-references '(macro . #[(header) "\301\302BB\207" [header aref (5)] 3 (#$ . 5006)]))
#@42 Set article references of HEADER to REF.
(defalias 'mail-header-set-references '(macro . #[(header ref) "\302\303	F\207" [header ref aset 5] 4 (#$ . 5149)]))
#@46 Return number of chars of article in HEADER.
(defalias 'mail-header-chars '(macro . #[(header) "\301\302BB\207" [header aref (6)] 3 (#$ . 5314)]))
#@52 Set number of chars in article of HEADER to CHARS.
(defalias 'mail-header-set-chars '(macro . #[(header chars) "\302\303	F\207" [header chars aset 6] 4 (#$ . 5468)]))
#@25 Return lines in HEADER.
(defalias 'mail-header-lines '(macro . #[(header) "\301\302BB\207" [header aref (7)] 3 (#$ . 5642)]))
#@39 Set article lines of HEADER to LINES.
(defalias 'mail-header-set-lines '(macro . #[(header lines) "\302\303	F\207" [header lines aset 7] 4 (#$ . 5775)]))
#@31 Return xref string in HEADER.
(defalias 'mail-header-xref '(macro . #[(header) "\301\302BB\207" [header aref (8)] 3 (#$ . 5936)]))
#@37 Set article XREF of HEADER to xref.
(defalias 'mail-header-set-xref '(macro . #[(header xref) "\302\303	F\207" [header xref aset 8] 4 (#$ . 6074)]))
#@37 Return the extra headers in HEADER.
(defalias 'mail-header-extra '(macro . #[(header) "\301\302BB\207" [header aref (9)] 3 (#$ . 6230)]))
#@43 Set the extra headers in HEADER to EXTRA.
(defalias 'mail-header-set-extra #[(header extra) "\302	I\207" [header extra 9] 3 (#$ . 6375)])
#@59 Create a new mail header structure initialized with INIT.
(defalias 'make-mail-header #[(&optional init) "\301\302\"\207" [init make-vector 10] 3 (#$ . 6520)])
(put 'make-mail-header 'byte-optimizer 'byte-compile-inline-expand)
#@75 Create a new mail header structure initialized with the parameters given.
(defalias 'make-full-mail-header #[(&optional number subject from date id references chars lines xref extra) "\306	\n\f
	\n&\n\207" [number subject from date id references vector chars lines xref extra] 11 (#$ . 6755)])
(put 'make-full-mail-header 'byte-optimizer 'byte-compile-inline-expand)
(defvar nnheader-fake-message-id 1)
(defalias 'nnheader-generate-fake-message-id #[(&optional number) "\247\203\303\304	#\207\303\305	\306\nT\211!#\207" [number gnus-newsgroup-name nnheader-fake-message-id format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string] 6])
(put 'nnheader-generate-fake-message-id 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnheader-fake-message-id-p #[(id) "\302 \303\216\304\305	\"*\207" [save-match-data-internal id match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'"] 3])
(put 'nnheader-fake-message-id-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnheader-remove-cr-followed-by-lf #[nil "db\210\300\301\302\303#\205\304\305!\210\202\207" [search-backward "
\n" nil t delete-char 1] 4])
(put 'nnheader-remove-cr-followed-by-lf 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nnheader-header-value #[nil "\300\301w\210`\302 {\207" [" 	" nil point-at-eol] 2])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put nnheader-header-value byte-optimizer byte-compile-inline-expand autoload ietf-drums-unfold-fws "ietf-drums"] 4)
(defalias 'nnheader-parse-naked-head #[(&optional number) "\306\307pe\307\211\211,db\210\310\311\307\306#\203!\312\313!\210\202\314 \210\315ed\316\317$\210b\210\320c\210\321-\2068\322b\210\323\324\307\306#\203N\325\307w\210`\326 {\202O\327b\210\323\330\307\306#\203e\325\307w\210`\326 {\202f\331b\210\323\332\307\306#\203|\325\307w\210`\326 {\202}\333b\210\323\334\307\306#\203\241\323\335\326 \306#\206\222`S\323\336\326 \306#\206\235`{\202\302-\211-\247\203\264\337\340.-#\202\301\337\341.\342/T\211/!#)b\210\323\343\307\306#\203\330\325\307w\210`\326 {\202
\323\344\307\306#\205
\325\307w\210`\326 {\211\205
\345\346\n\"\205
\3070\n\322\224\322\225O\345\346\n\322\225#\203
\n\322\224\322\225O\2110GGV\203\3760\202\376)\322b\210\323\347\307\306#\203<
\350\f!\211\247\2038
	\202=
\322\202=
\322b\210\323\351\307\306#\205P
\325\307w\210`\326 {1\205\222
1\307233\203\217
b\210\323\320\3523@!\353Q\307\306#\203\204
3@\325\307w\210`\326 {B2B23\211A3@\210\202\\
2*&\nb\210\312\313!\210.\207" [ref lines in-reply-to p cur buffer-read-only t nil search-backward "
\n" delete-char 1 ietf-drums-unfold-fws subst-char-in-region 9 32 "\n" vector 0 search-forward "\nsubject:" " 	" point-at-eol "(none)" "\nfrom:" "(nobody)" "\ndate:" "" "\nmessage-id:" "<" ">" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string "\nreferences:" "\nin-reply-to:" string-match "<[^\n>]+>" "\nlines: " read "\nxref:" symbol-name ":" case-fold-search number gnus-newsgroup-name nnheader-fake-message-id ref2 nnmail-extra-headers out extra] 15])
(defalias 'nnheader-parse-head #[(&optional naked) "p\306\211\211\f\203\307ed\211\2026\310\311\306\312#\205M\313!`\314\315\306\312#\2033`\316Zb\2024`\211\205M\317\320!r
q\210\321\216\322	#\210\323\n!+,\207" [end beg num cur naked #1=#:temp-buffer nil 0 re-search-forward "^[23][0-9]+ " t read search-forward "\n.\n" 2 generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring nnheader-parse-naked-head] 4])
(defalias 'nnheader-nov-skip-field '(macro . #[nil "\300\207" [(search-forward "	" eol 'move)] 1]))
(defalias 'nnheader-nov-field '(macro . #[nil "\300\207" [(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol))] 1]))
(defalias 'nnheader-nov-read-integer '(macro . #[nil "\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 . #[nil "\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)
(defalias 'nnheader-nov-read-message-id '(macro . #[(&optional number) "\302\303\304\305\203\f\306\202
\307\310	DFE\207" [nnheader-uniquify-message-id number 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] 7]))
(defalias 'nnheader-parse-nov #[nil "\306 \307f\310=\203
\311\202\307\312\313\217\211\247\203\202\311)m\204$\314u\210\315	`\316\317\n\320#\2036`S\2027\n{`\316\317\n\320#\203F`S\202G\n{`\316\317\n\320#\203V`S\202W\n{`\316\317\n\320#\203f`S\202g\n{\321\322\"\203t\202\216	\211\247\203\203\323\324\f	#\202\215\323\325\f\326
T\211!#))`\316\317\n\320#\203\235`S\202\236\n{\307f\310=\203\252\311\202\272\307\327\330\217\211\247\203\270\202\271\311)m\204\301\314u\210\307f\310=\203\314\311\202\334\307\331\332\217\211\247\203\332\202\333\311)m\204\343\314u\210\307f\333=?\205
\334\335!\203\365\311\225b\210`\316\317\n\320#\203
`S\202
\n{\307\211\"#\307f\336>\204B
`\316\317\n\320#\203 
`S\202!
\n{\"\321\337\"\"\203
\340\341\314\"\"!\"\311\225\307OB#B#\202
#*&\n*\207" [num number eol id gnus-newsgroup-name nnheader-fake-message-id point-at-eol nil 9 0 (byte-code "\300p!\207" [read] 2) ((error)) 1 vector search-forward "	" move string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string (byte-code "\300p!\207" [read] 2) ((error)) (byte-code "\300p!\207" [read] 2) ((error)) 10 looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string string out] 16])
(defalias 'nnheader-insert-nov #[(header) "\304\305Hp\"\210`\306\307H\206\310\306\311H\206\312\306\313H\206!\314\306\315H\206*\316 \306\317H\2062\314\306\261\210\304\320H\206>\305p\"\210\306c\210\304\321H\206L\305p\"\210\306c\210\322H\203_\323\322H\261\210\322H\204k\324H\203n\306c\210\324H\203\247\324H\n\203\246\325\n\211@@)!\326\n\211@A);\203\230\n\211@A)\202\231\314\306\261\210\n\211A@\210\202x)\327c\210\330u\210\331\327	\332#\203\274\333\307!\210\202\255\307y)\207" [header p extra x 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] 12])
#@42 Parse FILE and return a list of headers.
(defalias 'nnheader-parse-overview-file #[(file) "\303\304!rq\210\305\216\306 \210\307	!\210eb\210\310m\204%\311 \nB\312y\210\202\n\237,\207" [#1=#:temp-buffer file headers generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte nnheader-insert-file-contents nil nnheader-parse-nov 1] 2 (#$ . 13542)])
#@24 Write HEADERS to FILE.
(defalias 'nnheader-write-overview-file #[(file headers) "\304\305\306!!\307\216r	q\210\310\311\")r	q\210\312\313\211\n\313\314%\210,\207" [file #1=#:temp-buffer #2=#:temp-file headers get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mapcar nnheader-insert-nov write-region nil 0] 7 (#$ . 13973)])
(defalias 'nnheader-insert-header #[(header) "\301\302H\206\303\304\305\306H\206\307\304\310\311H\206\312\304\313\314H\206$\315 \304\316\317H\206-\312\304\320\261\210\321\322H\206:\323p\"\210\324c\207" [header "Subject: " 1 "(none)" "\n" "From: " 2 "(nobody)" "Date: " 3 "" "Message-ID: " 4 nnmail-message-id "References: " 5 "Lines: " princ 7 0 "\n\n"] 16])
(defalias 'nnheader-insert-article-line #[(article) "eb\210\301c\210\302p\"\210\303c\210\304\305\306\307#\210`d|\210\310u\210\311c\207" [article "220 " princ " Article retrieved.\n" search-forward "\n\n" nil move -1 "."] 4])
#@61 Delete all NOV lines that lie outside the BEG to END range.
(defalias 'nnheader-nov-delete-outside-range #[(beg end) "\302!\210e`|\210\302	!\203\303y\210`d|\207" [beg end nnheader-find-nov-line 1] 2 (#$ . 14994)])
#@183 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.
(defalias 'nnheader-find-nov-line #[(article) "debpe\306\211\204e\f
\fZ\307\245\\b\210\310 \210`\nU\204'm\203-\311\211\202`\312!\211\247\204Gm\204G\313 \314y\210`|\210\202/	V\203S`\202
	W\203_`\202
\315\211\203	\204qm\204q\312!\315=\204\261	=\204\261``
W\203\247	\247\203\222	W\203\247\314y\210`m\204\200\312!\211U\210\202\200	=\204\261b\210\310 \210	.=\207" [found num prev cur min max nil 2 beginning-of-line t read point-at-bol 1 yes article] 7 (#$ . 15218)])
(defvar nntp-server-buffer nil)
(defvar nntp-process-response nil)
(defvar nnheader-callback-function nil)
#@51 Initialize the Gnus-backend communication buffer.
(defalias 'nnheader-init-server-buffer #[nil "\211\205\304\305	!!)\204\306\307!rq\210\310 \210\311 \210\312 \210\313\314\303!\210\315)\313\207" [nntp-server-buffer buffer case-fold-search nntp-process-response buffer-live-p get-buffer get-buffer-create " *nntpd*" erase-buffer mm-enable-multibyte kill-all-local-variables t make-local-variable nil] 4 (#$ . 16037)])
#@52 Return a string that says what is wrong with FILE.
(defalias 'nnheader-file-error #[(file) "\301\302!\204\303\202\304!\203\305\202\306!?\205\307\"\207" [file format file-exists-p "%s does not exist" file-directory-p "%s is a directory" file-readable-p "%s is not readable"] 3 (#$ . 16469)])
#@33 Insert the head of the article.
(defalias 'nnheader-insert-head #[(file) "\306!\205P	\307=\203\310!\210\202O\311`\312
\313\314\f\211
\\\211$A@=\203@\315\316\314\307#?db\210\203@	\203\f	W\204\317!\203N\320d#\210+\307\207" [file nnheader-max-head-length coding-system-for-read start beg nnheader-head-chop-length file-exists-p t nnheader-insert-file-contents 0 binary mm-insert-file-contents nil re-search-forward "\n
?\n\\|

" mm-coding-system-p mm-decode-coding-region nnheader-file-coding-system] 7 (#$ . 16780)])
#@55 Say whether the current buffer looks like an article.
(defalias 'nnheader-article-p #[nil "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 (#$ . 17324)])
#@64 Insert a References header based on REFERENCES and MESSAGE-ID.
(defalias 'nnheader-insert-references #[(references message-id) "?\205	??\2055\305\306!\210\307 \310\311\203c\210\203(	\203(\312c\210	\203/	c\210\313\f`T\"+\207" [references message-id fill-prefix fill-column begin mail-position-on-field "References" point-at-bol 78 "	" " " fill-region-as-paragraph] 3 (#$ . 17619)])
#@41 Remove HEADER and insert the NEW-VALUE.
(defalias 'nnheader-replace-header #[(header new-value) "\302\303!\210\212\214\304 \210\305!db\210\306	\307\261\210*\207" [header new-value require message nnheader-narrow-to-headers message-remove-header ": " "\n"] 5 (#$ . 18021)])
#@35 Narrow to the head of an article.
(defalias 'nnheader-narrow-to-headers #[nil "~\210eb\300\301\302\303#\203`S\202d}\210eb\207" [search-forward "\n\n" nil t] 5 (#$ . 18303)])
#@59 Return the number of lines and chars in the article body.
(defalias 'nnheader-get-lines-and-char #[nil "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 (#$ . 18487)])
#@57 Remove the body from an article in this current buffer.
(defalias 'nnheader-remove-body #[nil "eb\210\300\301\302\303#\205`d|\207" [re-search-forward "\n
?\n" nil t] 4 (#$ . 18723)])
#@78 Set-buffer to an empty (possibly new) buffer called NAME with undo disabled.
(defalias 'nnheader-set-temp-buffer #[(name &optional noerase) "\302!q\210\303 \210	\204\304 \210p\207" [name noerase get-buffer-create buffer-disable-undo erase-buffer] 2 (#$ . 18914)])
#@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 #[(i) "\301H\207" [i 0] 2] "\\|" "\\)?" "[0-9]+$"] 5) (#$ . 19187))
#@43 Regexp that matches numerical file names.
(defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) (#$ . 19462))
#@48 Regexp that matches numerical full file names.
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) (#$ . 19601))
#@49 Take a FILE name and return the article number.
(defalias 'nnheader-file-to-number #[(file) "\302\230\203\n\303	!\207\304	\"\210\303\305\306	\"!\207" [nnheader-numerical-short-files file "^[0-9]+$" string-to-number string-match match-string 0] 4 (#$ . 19744)])
(put 'nnheader-file-to-number 'byte-optimizer 'byte-compile-inline-expand)
#@230 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=\206\302\207" [system-type windows-nt t] 2) (#$ . 20090))
#@64 Execute `directory-files' twice and returns the longer result.
(defalias 'nnheader-directory-files-safe #[(&rest args) "\303\304\"\303\304\"\211G	GV\203\n\202	*\207" [args second first apply directory-files] 5 (#$ . 20444)])
#@54 Return a list of all article files in directory DIR.
(defalias 'nnheader-directory-articles #[(dir) "\303\304\203\305	\306\n\307$\202\310	\306\n\307$\"\207" [nnheader-directory-files-is-safe dir nnheader-numerical-short-files mapcar nnheader-file-to-number directory-files nil t nnheader-directory-files-safe] 7 (#$ . 20683)])
#@47 Return an alist of article/file pairs in DIR.
(defalias 'nnheader-article-to-file-alist #[(dir) "\303\304\203\305	\306\n\307$\202\310	\306\n\307$\"\207" [nnheader-directory-files-is-safe dir nnheader-numerical-short-files mapcar #[(file) "	\302\230\203\303!\202\304	\"\210\303\305\306\"!)B\207" [file nnheader-numerical-short-files "^[0-9]+$" string-to-number string-match match-string 0] 4] directory-files nil t nnheader-directory-files-safe] 7 (#$ . 21021)])
#@48 Fold continuation lines in the current buffer.
(defalias 'nnheader-fold-continuation-lines #[nil "\300\301\302\"\207" [nnheader-replace-regexp "\\(
?\n[ 	]+\\)+" " "] 3 (#$ . 21504)])
#@87 Translate FILE into something that can be a file name.
If FULL, translate everything.
(defalias 'nnheader-translate-file-chars #[(file &optional full) "\204	\207\306\307\211\307\211\2034\310	!\311\312\fGW\203/\f\312H\313=\203/\314\2020\306\202<\315	!\316	!\fG\nW\203^\f\nH\236A\211\203W\f\nI\210\nT\211\202A
\fP-\207" [nnheader-file-name-translation-alist file i trans leaf path 0 nil copy-sequence "" 1 58 2 file-name-nondirectory file-name-directory len full] 4 (#$ . 21694)])
#@84 Report an error from the BACKEND.
The first string in ARGS can be a format string.
(defalias 'nnheader-report #[(backend &rest args) "\302\303\304\"!	G\305W\203	@\202\306\303	\"L\210\307\207" [backend args intern format "%s-status-string" 2 apply nil] 4 (#$ . 22211)])
#@42 Get the most recent report from BACKEND.
(defalias 'nnheader-get-report-string #[(backend) "\300\301\302\217\207" [nil (byte-code "\301\302\303\301\304\"!J\"\207" [backend format "%s" intern "%s-status-string"] 6) ((error ""))] 3 (#$ . 22491)])
#@42 Get the most recent report from BACKEND.
(defalias 'nnheader-get-report #[(backend) "\301\302\303!\"\207" [backend nnheader-message 5 nnheader-get-report-string] 4 (#$ . 22743)])
#@162 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.
(defalias 'nnheader-insert #[(format &rest args) "rq\210\303 \210\304\305	\"\203\306\301	\n#c\210\202\306\307	\n#\210)\310\207" [nntp-server-buffer format args erase-buffer string-match "%" apply insert t] 4 (#$ . 22930)])
(defalias 'nnheader-replace-chars-in-string #[(string from to) "\303	\n#\207" [from to string mm-subst-char-in-string] 4])
(put 'nnheader-replace-chars-in-string 'byte-optimizer 'byte-compile-inline-expand)
#@47 Replace characters in STRING from FROM to TO.
(defalias 'nnheader-replace-duplicate-chars-in-string #[(string from to) "\306\307OG\306\307\211\fW\203:H\n
=\2031	
U\2031SI\210I\210	T\211\202-\207" [string i prev idx len from 0 nil to] 6 (#$ . 23533)])
#@44 Return a group name based on FILE and TOP.
(defalias 'nnheader-file-to-group #[(file &optional top) "\204	\202\f\306\307\310\217\n\311\312\f
#+\207" [top file nnheader-directory-separator-character to from string nil (byte-code "\302!\302\303	!!G\304O\207" [file top expand-file-name file-name-as-directory nil] 4) ((error "")) 46 mm-subst-char-in-string] 4 (#$ . 23818)])
#@45 Message if the Gnus backends are talkative.
(defalias 'nnheader-message #[(level &rest args) "\247\203	X\203\n\203\304\305\"\207\304\306\"\207\304\307\"\207" [gnus-verbose-backends level gnus-add-timestamp-to-message args apply gnus-message-with-timestamp message format] 3 (#$ . 24206)])
#@57 Return whether the backends should be verbose on LEVEL.
(defalias 'nnheader-be-verbose #[(level) "\247?\206		X\207" [gnus-verbose-backends level] 2 (#$ . 24512)])
#@31 *Coding system for file name.
(defvar nnheader-pathname-coding-system 'iso-8859-1 (#$ . -24684))
#@27 Make file name for GROUP.
(defalias 'nnheader-group-pathname #[(group dir &optional file) "\306\307!!\306\310	P!\203\307	\"\202(\307\311	\312\313\314\n\f#+
\"\"!)\2043\315\202B\247\203@\316!\202BP\207" [dir group to from string nnheader-pathname-coding-system file-name-as-directory expand-file-name file-directory-p mm-encode-coding-string 46 47 mm-subst-char-in-string "" int-to-string file] 7 (#$ . 24787)])
#@35 Concat DIR as directory to FILES.
(defalias 'nnheader-concat #[(dir &rest files) "\302\303\304!	#\207" [dir files apply concat file-name-as-directory] 4 (#$ . 25228)])
#@37 Strip ^M from the end of all lines.
(defalias 'nnheader-ms-strip-cr #[nil "\212db\210\300\301\302\303#\205\304\305!\210\202)\207" [search-backward "
\n" nil t delete-char 1] 4 (#$ . 25403)])
#@36 Return the file size of FILE or 0.
(defalias 'nnheader-file-size #[(file) "\301\302!8\206	\303\207" [file 7 file-attributes 0] 3 (#$ . 25604)])
#@364 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.
(defalias 'nnheader-find-etc-directory #[(package &optional file first) "\306\211\211\203P@\203I\307\310\311@!!\312\f
\203 \313\202!\314R\211!\203I
\2042\315\n!\203I\n	\235\204<\n	B?\205DA\211\202A\211\204\n\204Z	A\204_	@\202d\316	\317\"@+\207" [load-path results dir path package file nil file-exists-p file-name-directory directory-file-name "etc/" "" "/" file-directory-p sort file-newer-than-file-p first] 6 (#$ . 25757)])
#@55 Re-read directory PATH if PATH is on a remote system.
(defalias 'nnheader-re-read-dir #[(path) "\303\304!\203\305\300!\203\306	\"\205.\304	!\207\303\307!\205.\305\302!\205.\306\n@	\"\205.\307	!\207" [efs-path-regexp path ange-ftp-path-format fboundp efs-re-read-dir boundp string-match ange-ftp-re-read-dir] 3 (#$ . 26584)])
#@46 Coding system used in file backends of Gnus.
(defvar nnheader-file-coding-system 'raw-text (#$ . 26924))
#@308 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-hooks, etc.
  This function ensures that none of these modifications will take place.
(defalias 'nnheader-insert-file-contents #[(filename &optional visit beg end replace) "\306\n\f
%)\207" [nnheader-file-coding-system coding-system-for-read filename visit beg end mm-insert-file-contents replace] 6 (#$ . 27036)])
(defalias 'nnheader-insert-nov-file #[(file first) "\305\306!8\307\211\205N\n	W\203\310!\202N\311\310\311\n	Z\n$\210eb\210`\312\313\311\314#\2060`|\210\311\315\316\217\211\247\203F\fW\203F\317\202Med|\210\310!)*\207" [file cutoff size current first 7 file-attributes 32768 nnheader-insert-file-contents nil search-forward "\n" move (byte-code "\300p!\207" [read] 2) ((error)) t] 6])
#@84 Open a file with some variables bound.
See `find-file-noselect' for the arguments.
(defalias 'nnheader-find-file-noselect #[(&rest args) "\306\307 \310\311!\312\216\313\311\314\"\210\306\211\306\315\316\317!\203'\317\202(\320\211J\306L\210\321\216\322\323\".\f\207" [format-alist auto-mode-alist #1=#:old enable-local-variables after-insert-file-functions enable-local-eval nil mm-auto-mode-alist default-value major-mode ((byte-code "\301\302\"\207" [#1# set-default major-mode] 3)) set-default fundamental-mode never boundp find-file-hook find-file-hooks ((set ffh val)) apply find-file-noselect nnheader-file-coding-system coding-system-for-read version-control ffh val args] 4 (#$ . 27983)])
#@44 Return a list of all regular files in DIR.
(defalias 'nnheader-directory-regular-files #[(dir) "\303\304\"\305\n\203 \306\n@!\203\n@	B\n\211A@\210\202	\237*\207" [dir out files directory-files t nil file-regular-p] 3 (#$ . 28708)])
#@52 Same as `directory-files', but prune "." and "..".
(defalias 'nnheader-directory-files #[(&rest args) "\303\304\"\305\n\203\"\306\n@!\307\235\204\n@	B\n\211A@\210\202	\237*\207" [args out files apply directory-files nil file-name-nondirectory ("." "..")] 3 (#$ . 28956)])
(defalias 'nnheader-skeleton-replace '(macro . #[(from &optional to regexp) "\303\304\305\306\307\203
\310\202\311	\312BB\313\314\n\205\315\nD\316BBBBB\317BBBBB\207" [regexp from to 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))] 10]))
#@64 Do a fast replacement of FROM to TO from point to `point-max'.
(defalias 'nnheader-replace-string #[(from to) "\305\306!pe	q\210eb\210\307\310\311#\203.\312	\313\224\nq\210#\210db\210\fc\210	q\210`\202\312	d\nq\210#\210\314	ed#\210\315p!\210	q+\207" [start cur new from to generate-new-buffer " *nnheader replace*" search-forward nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 5 (#$ . 29946)])
#@71 Do a fast regexp replacement of FROM to TO from point to `point-max'.
(defalias 'nnheader-replace-regexp #[(from to) "\305\306!pe	q\210eb\210\307\310\311#\203.\312	\313\224\nq\210#\210db\210\fc\210	q\210`\202\312	d\nq\210#\210\314	ed#\210\315p!\210	q+\207" [start cur new from to generate-new-buffer " *nnheader replace*" re-search-forward nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 5 (#$ . 30369)])
#@40 Strip all 
's from the current buffer.
(defalias 'nnheader-strip-cr #[nil "\303\304!pe	q\210eb\210\305\306\307\310#\203+\311	\312\224\nq\210#\210db\210	q\210`\202\311	d\nq\210#\210\313	ed#\210\314p!\210	q+\207" [start cur new generate-new-buffer " *nnheader replace*" search-forward "
" nil t insert-buffer-substring 0 copy-to-buffer kill-buffer] 5 (#$ . 30802)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias nnheader-cancel-timer cancel-timer nnheader-cancel-function-timers cancel-function-timers] 3)
(defalias 'nnheader-accept-process-output #[(process) "\302\303	!\303	\303	!Z\304_!#\207" [process nnheader-read-timeout accept-process-output truncate 1000] 7])
(defalias 'nnheader-update-marks-actions #[(backend-marks actions) "\306\211\203g\n@\211@	A@\307	8\306\211\203_\n@\310\f\311=\2039\312\313\"A
\"\202S\f\314=\203L\315\313\"A
\"\202S\f\316=\205S
#\nA\211\204-\nA\211\204*\207" [actions action --dolist-tail-- marks what range nil 2 gnus-update-alist-soft add gnus-range-add assoc del gnus-remove-from-range set mark backend-marks] 7])
#@62 Copy string from unibyte buffer to multibyte current buffer.
(defalias 'nnheader-insert-buffer-substring '(macro . #[(buffer &optional start end) "\303\304\305\306\307	\204\n\203\310\311	\312BB\311\n\313BBE\202\314DED\315	\nFF\207" [buffer start end if enable-multibyte-characters insert with-current-buffer mm-string-to-multibyte buffer-substring or ((point-min)) ((point-max)) (buffer-string) insert-buffer-substring] 11 (#$ . 31922)]))
(defvar nnheader-last-message-time '(0 0))
(defalias 'nnheader-message-maybe #[(&rest args) "\303 \304\305	\"!\306V\205\307\310\n\")\207" [now nnheader-last-message-time args current-time float-time time-subtract 1 apply nnheader-message] 4])
(byte-code "\300\301!\210\302\303!\207" [run-hooks nnheader-load-hook provide nnheader] 2)