%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/nnheader.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\302!\210\300\303!\210\304\305\306\"\210\304\307\306\"\210\304\310\306\"\210\304\311\306\"\210\304\312\306\"\210\304\313\306\"\210\314\315\316\317\320\321\322\323&\210\314\324\325\326\320\327\322\330&\210\314\331\332\333\320\334\322\335&\210\314\336\337\340\320\334\322\323&\207" [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 nnheader-max-head-length 8192 "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 2048 "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) (#$ . 2004))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\314\315\316\"\210\314\317\320\"\210\321\322\323\"\207" [custom-declare-variable nnheader-file-name-translation-alist (if (memq system-type '(windows-nt cygwin)) (mapcar (lambda (c) (cons c 95)) '(58 42 34 60 62 63))) "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 (string-to-char (substring (file-name-as-directory ".") -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)
#@51 compiler-macro for inlining `mail-header-number'.
(defalias 'mail-header-number--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-number (progn (aref cl-x 0))) nil] 7 (#$ . 3163)])
(put 'mail-header-number 'compiler-macro 'mail-header-number--cmacro)
#@52 Access slot "number" of `mail-header' struct CL-X.
(defalias 'mail-header-number #[(cl-x) "\301H\207" [cl-x 0] 2 (#$ . 3490)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-number side-effect-free t] 4)
#@52 compiler-macro for inlining `mail-header-subject'.
(defalias 'mail-header-subject--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-subject (progn (aref cl-x 1))) nil] 7 (#$ . 3719)])
(put 'mail-header-subject 'compiler-macro 'mail-header-subject--cmacro)
#@53 Access slot "subject" of `mail-header' struct CL-X.
(defalias 'mail-header-subject #[(cl-x) "\301H\207" [cl-x 1] 2 (#$ . 4051)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-subject side-effect-free t] 4)
#@49 compiler-macro for inlining `mail-header-from'.
(defalias 'mail-header-from--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-from (progn (aref cl-x 2))) nil] 7 (#$ . 4283)])
(put 'mail-header-from 'compiler-macro 'mail-header-from--cmacro)
#@50 Access slot "from" of `mail-header' struct CL-X.
(defalias 'mail-header-from #[(cl-x) "\301H\207" [cl-x 2] 2 (#$ . 4600)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-from side-effect-free t] 4)
#@49 compiler-macro for inlining `mail-header-date'.
(defalias 'mail-header-date--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-date (progn (aref cl-x 3))) nil] 7 (#$ . 4823)])
(put 'mail-header-date 'compiler-macro 'mail-header-date--cmacro)
#@50 Access slot "date" of `mail-header' struct CL-X.
(defalias 'mail-header-date #[(cl-x) "\301H\207" [cl-x 3] 2 (#$ . 5140)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-date side-effect-free t] 4)
#@47 compiler-macro for inlining `mail-header-id'.
(defalias 'mail-header-id--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-id (progn (aref cl-x 4))) nil] 7 (#$ . 5363)])
(put 'mail-header-id 'compiler-macro 'mail-header-id--cmacro)
#@48 Access slot "id" of `mail-header' struct CL-X.
(defalias 'mail-header-id #[(cl-x) "\301H\207" [cl-x 4] 2 (#$ . 5670)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-id side-effect-free t] 4)
#@55 compiler-macro for inlining `mail-header-references'.
(defalias 'mail-header-references--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-references (progn (aref cl-x 5))) nil] 7 (#$ . 5887)])
(put 'mail-header-references 'compiler-macro 'mail-header-references--cmacro)
#@56 Access slot "references" of `mail-header' struct CL-X.
(defalias 'mail-header-references #[(cl-x) "\301H\207" [cl-x 5] 2 (#$ . 6234)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-references side-effect-free t] 4)
#@50 compiler-macro for inlining `mail-header-chars'.
(defalias 'mail-header-chars--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-chars (progn (aref cl-x 6))) nil] 7 (#$ . 6475)])
(put 'mail-header-chars 'compiler-macro 'mail-header-chars--cmacro)
#@51 Access slot "chars" of `mail-header' struct CL-X.
(defalias 'mail-header-chars #[(cl-x) "\301H\207" [cl-x 6] 2 (#$ . 6797)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-chars side-effect-free t] 4)
#@50 compiler-macro for inlining `mail-header-lines'.
(defalias 'mail-header-lines--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-lines (progn (aref cl-x 7))) nil] 7 (#$ . 7023)])
(put 'mail-header-lines 'compiler-macro 'mail-header-lines--cmacro)
#@51 Access slot "lines" of `mail-header' struct CL-X.
(defalias 'mail-header-lines #[(cl-x) "\301H\207" [cl-x 7] 2 (#$ . 7345)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-lines side-effect-free t] 4)
#@49 compiler-macro for inlining `mail-header-xref'.
(defalias 'mail-header-xref--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-xref (progn (aref cl-x 8))) nil] 7 (#$ . 7571)])
(put 'mail-header-xref 'compiler-macro 'mail-header-xref--cmacro)
#@50 Access slot "xref" of `mail-header' struct CL-X.
(defalias 'mail-header-xref #[(cl-x) "\301H\207" [cl-x 8] 2 (#$ . 7888)])
(byte-code "\300\301\302\303#\300\207" [function-put mail-header-xref side-effect-free t] 4)
#@50 compiler-macro for inlining `mail-header-extra'.
(defalias 'mail-header-extra--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block mail-header-extra (progn (aref cl-x 9))) nil] 7 (#$ . 8111)])
(put 'mail-header-extra 'compiler-macro 'mail-header-extra--cmacro)
#@51 Access slot "extra" of `mail-header' struct CL-X.
(defalias 'mail-header-extra #[(cl-x) "\301H\207" [cl-x 9] 2 (#$ . 8433)])
(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)
#@54 compiler-macro for inlining `make-full-mail-header'.
(defalias 'make-full-mail-header--cmacro #[(_cl-whole-arg &optional number subject from date id references chars lines xref extra) "\306\307\310\311\211\211	\n\f
\n\f
&\207" [number subject from date id references 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 chars lines xref extra] 16 (#$ . 8709)])
(put 'make-full-mail-header 'compiler-macro 'make-full-mail-header--cmacro)
#@48 Constructor for objects of type `mail-header'.
(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 (#$ . 9299)])
(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)
#@59 Create a new mail header structure initialized with INIT.
(defalias 'make-mail-header #[(&optional init) "\301\211\211\211\211\211\211\211\211\211&\n\207" [init vector] 11 (#$ . 9933)])
(put 'make-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 #[nil "\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/\3420T\2110!#)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!\3071\347\n\322\224\322\225#\345\346\n\322\225#\203\347\n\322\224\322\225#\2111GGV\203\3771\202\377)\322b\210\323\350\307\306#\203>\351\f!\211\247\203:	\202?\322\202?\322b\210\323\352\307\306#\205R\325\307w\210`\326 {2\205\2232\307344\203\220b\210\323\320\3534@!\354Q\307\306#\203\2064@\325\307w\210`\326 {B3B34\211A4\210\202^3*&\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>]+>" substring "\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*" #[nil "\301!\205	\302!\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&\3121\313p!0\202\210\307\211\247\203$\202%\311)m\204-\314u\210\315	`\316\317\n\320#\203?`S\202@\n{`\316\317\n\320#\203O`S\202P\n{`\316\317\n\320#\203_`S\202`\n{`\316\317\n\320#\203o`S\202p\n{\321\322\"\203}\202\227	\211\247\203\214\323\324\f	#\202\226\323\325\f\326
T\211!#))`\316\317\n\320#\203\246`S\202\247\n{\307f\310=\203\263\311\202\314\3271\276\313p!0\202\300\210\307\211\247\203\312\202\313\311)m\204\323\314u\210\307f\310=\203\336\311\202\367\3301\351\313p!0\202\353\210\307\211\247\203\365\202\366\311)m\204\376\314u\210\307f\331=?\205 \332\333!\203\311\225b\210`\316\317\n\320#\203`S\202\n{\307\211!\"\307f\334>\204]`\316\317\n\320#\203;`S\202<\n{!\321\335!\"\203&\336\337\314!\"!\340!\311\225\"B\"B\"\202&\"*&\n*\207" [num number eol id gnus-newsgroup-name nnheader-fake-message-id point-at-eol nil 9 0 (error) read 1 vector search-forward "	" move string-match "^<[^>]+>$" format "fake+none+%s+%d" "fake+none+%s+%s" int-to-string (error) (error) 10 looking-at "Xref: " (10 nil) "^\\([^ :]+\\): " intern match-string substring string out] 16])
(defalias 'nnheader-insert-nov #[(header) "\303\304Hp\"\210`\305\306H\206\307\305\310H\206\311\305\312H\206!\313\305\314H\206*\315 \305\316H\2062\313\305\261\210\303\317H\206>\304p\"\210\305c\210\303\320H\206L\304p\"\210\305c\210\321H\203_\322\321H\261\210\321H\204k\323H\203n\305c\210\323H\203\235\323H\n\203\234\324\n@@!\325\n@A;\203\217\n@A\202\220\313\305\261\210\n\211A\210\202x)\326c\210\327u\210\330\326	\331#\203\262\332\306!\210\202\243\306y)\207" [header p extra 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] 11])
#@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*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte nnheader-insert-file-contents nil nnheader-parse-nov 1] 2 (#$ . 16524)])
#@24 Write HEADERS to FILE.
(defalias 'nnheader-write-overview-file #[(file headers) "\304\305!\306\216r	q\210\307\310\")r	q\210\311\312\211\n\312\313%\210,\207" [file #1=#:temp-buffer #2=#:temp-file headers generate-new-buffer " *temp file*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mapcar nnheader-insert-nov write-region nil 0] 7 (#$ . 16939)])
(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 (#$ . 17916)])
#@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 (#$ . 18140)])
(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 (#$ . 18919))
(defvar nnheader-callback-function nil)
#@51 Initialize the Gnus-backend communication buffer.
(defalias 'nnheader-init-server-buffer #[nil "\211\205\304\305	!\211!\205	)\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 (#$ . 19071)])
#@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 (#$ . 19515)])
#@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 decode-coding-region nnheader-file-coding-system] 7 (#$ . 19826)])
#@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 (#$ . 20367)])
#@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 (#$ . 20662)])
#@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 (#$ . 21064)])
#@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 (#$ . 21346)])
#@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 (#$ . 21530)])
#@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 (#$ . 21766)])
#@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 (#$ . 21957)])
#@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) (#$ . 22230))
#@43 Regexp that matches numerical file names.
(defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) (#$ . 22505))
#@48 Regexp that matches numerical full file names.
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) (#$ . 22644))
#@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 (#$ . 22787)])
(put 'nnheader-file-to-number 'byte-optimizer 'byte-compile-inline-expand)
#@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) (#$ . 23133))
#@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 (#$ . 23477)])
#@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 (#$ . 23716)])
#@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 (#$ . 24054)])
#@48 Fold continuation lines in the current buffer.
(defalias 'nnheader-fold-continuation-lines #[nil "\300\301\302\"\207" [nnheader-replace-regexp "\\(
?\n[ 	]+\\)+" " "] 3 (#$ . 24537)])
#@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 (#$ . 24727)])
#@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 (#$ . 25244)])
#@42 Get the most recent report from BACKEND.
(defalias 'nnheader-get-report-string #[(backend) "\3011\302\303\304\302\305\"!J\"0\207\210\306\207" [backend (error) format "%s" intern "%s-status-string" ""] 6 (#$ . 25524)])
#@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 (#$ . 25751)])
#@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 (#$ . 25938)])
(defalias 'nnheader-replace-chars-in-string #[(string from to) "\303	\n#\207" [from to string 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\307\"G\307\310\211\fW\203:H\n
=\2031	
U\2031S	I\210	I\210	T\211\202-\207" [string i prev idx len from substring 0 nil to] 6 (#$ . 26538)])
#@44 Return a group name based on FILE and TOP.
(defalias 'nnheader-file-to-group #[(file &optional top) "\204	\202\3061\307\310	!\310\311!!G\"0\202\210\312\n\313\314\f
#+\207" [top file nnheader-directory-separator-character to from string (error) substring expand-file-name file-name-as-directory "" 46 subst-char-in-string] 5 (#$ . 26834)])
#@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 (#$ . 27193)])
#@57 Return whether the backends should be verbose on LEVEL.
(defalias 'nnheader-be-verbose #[(level) "\247?\206		X\207" [gnus-verbose-backends level] 2 (#$ . 27499)])
#@30 Coding system for file name.
(custom-declare-variable 'nnheader-pathname-coding-system ''iso-8859-1 '(#$ . 27671) :group 'gnus-article-various :type 'coding-system)
#@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 encode-coding-string 46 47 subst-char-in-string "" int-to-string file] 7 (#$ . 27842)])
#@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 (#$ . 28277)])
#@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 (#$ . 28452)])
#@36 Return the file size of FILE or 0.
(defalias 'nnheader-file-size #[(file) "\301!\3028\262\206\f\303\207" [file file-attributes 7 0] 3 (#$ . 28653)])
#@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 (#$ . 28813)])
#@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 (#$ . 29640)])
#@307 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.
(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 (#$ . 29981)])
(defalias 'nnheader-insert-nov-file #[(file first) "\305!\3068\262\307\211\205Z\n	W\203\310!\202Z\311\310\311\n	Z\n$\210eb\210`\312\313\311\314#\2063`|\210\3151@\316p!0\202B\210\311\211\247\203R\fW\203R\317\202Yed|\210\310!)*\207" [file cutoff size current first file-attributes 7 32768 nnheader-insert-file-contents nil search-forward "\n" move (error) read 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\306\316\317\".\n\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 #[nil "\301\302\"\207" [#1# set-default major-mode] 3] set-default fundamental-mode never apply find-file-noselect nnheader-file-coding-system coding-system-for-read version-control find-file-hook args] 4 (#$ . 30914)])
#@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 (#$ . 31534)])
#@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 (#$ . 31781)])
(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 (#$ . 32769)])
#@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 (#$ . 33192)])
#@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 (#$ . 33625)])
(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)
(defalias 'nnheader-accept-process-output #[(process) "\302	\"\207" [process nnheader-read-timeout accept-process-output] 3])
(defalias 'nnheader-update-marks-actions #[(backend-marks actions) "\306\211\203_\n@\211@	A@\307	8\306
\211\203W\n@
\310
\f\311\267\202J\312\313
\"A
\"\202K\314\313
\"A
\"\202K
\202K\306#\nA\211\204-\nA\211\204*\207" [actions action --dolist-tail-- marks what range nil 2 gnus-update-alist-soft #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (add 44 del 57 set 70)) gnus-range-add assoc gnus-remove-from-range 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	\204\n\203\305\306	\307BB\306\n\310BBE\202\311ED\207" [buffer start end insert with-current-buffer buffer-substring or ((point-min)) ((point-max)) (buffer-string)] 8 (#$ . 34866)]))
(defvar nnheader-last-message-time '(0 0))
(defalias 'nnheader-message-maybe #[(&rest args) "\303 \304\305\306	\"\"\205\307\310\n\")\207" [now nnheader-last-message-time args current-time time-less-p 1 time-subtract apply nnheader-message] 5])
(byte-code "\300\301!\210\302\303!\207" [run-hooks nnheader-load-hook provide nnheader] 2)

Zerion Mini Shell 1.0