Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : nnheader.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:57 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/nnheader.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`nnheader.el' was compiled for Emacs 19.29 or later"))

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

(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\"\207" [require mail-utils mm-util gnus-util autoload gnus-sorted-intersection "gnus-range" gnus-intersection gnus-sorted-complement gnus-sorted-difference] 3)
#@310 Integer that says how verbose the Gnus backends should be.
The higher the number, the more messages the Gnus backends will flash
to say what it's doing.  At zero, the Gnus backends will be totally
mute; at five, they will display most important messages; and at ten,
they will keep on jabbering all the time.
(custom-declare-variable 'gnus-verbose-backends '7 '(#$ . 891) :group 'gnus-start :type 'integer)
#@72 If non-nil, Gnus backends will never output headers in the NOV format.
(custom-declare-variable 'gnus-nov-is-evil 'nil '(#$ . 1304) :group 'gnus-server :type 'boolean)
#@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 (#$ . -1479))
#@67 *Length of each read operation when trying to fetch HEAD headers.
(defvar nnheader-head-chop-length 2048 (#$ . -1880))
#@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\\|emx\\|cygwin" symbol-name 1.0 0.01] 4) (#$ . 2006))
#@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\\|emx\\|cygwin" symbol-name append mapcar #[(c) "\301B\207" [c 95] 2] (58 42 34 60 62 63) "windows-nt\\|cygwin" ((43 . 45)) nil] 6) (#$ . -2326))
#@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) (#$ . -2921))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\207" [autoload nnmail-message-id "nnmail" mail-position-on-field "sendmail" message-remove-header "message" 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 (#$ . 3351)]))
#@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 (#$ . 3494)]))
#@34 Return subject string in HEADER.
(defalias 'mail-header-subject '(macro . #[(header) "\301\302BB\207" [header aref (1)] 3 (#$ . 3660)]))
#@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 (#$ . 3804)]))
#@33 Return author string in HEADER.
(defalias 'mail-header-from '(macro . #[(header) "\301\302BB\207" [header aref (2)] 3 (#$ . 3975)]))
#@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 (#$ . 4115)]))
#@24 Return date in HEADER.
(defalias 'mail-header-date '(macro . #[(header) "\301\302BB\207" [header aref (3)] 3 (#$ . 4273)]))
#@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 (#$ . 4404)]))
(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 (#$ . 4611)]))
(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 (#$ . 4797)]))
#@30 Return references in HEADER.
(defalias 'mail-header-references '(macro . #[(header) "\301\302BB\207" [header aref (5)] 3 (#$ . 4943)]))
#@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 (#$ . 5086)]))
#@46 Return number of chars of article in HEADER.
(defalias 'mail-header-chars '(macro . #[(header) "\301\302BB\207" [header aref (6)] 3 (#$ . 5251)]))
#@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 (#$ . 5405)]))
#@25 Return lines in HEADER.
(defalias 'mail-header-lines '(macro . #[(header) "\301\302BB\207" [header aref (7)] 3 (#$ . 5579)]))
#@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 (#$ . 5712)]))
#@31 Return xref string in HEADER.
(defalias 'mail-header-xref '(macro . #[(header) "\301\302BB\207" [header aref (8)] 3 (#$ . 5873)]))
#@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 (#$ . 6011)]))
#@37 Return the extra headers in HEADER.
(defalias 'mail-header-extra '(macro . #[(header) "\301\302BB\207" [header aref (9)] 3 (#$ . 6167)]))
#@43 Set the extra headers in HEADER to EXTRA.
(defalias 'mail-header-set-extra #[(header extra) "\302	I\207" [header extra 9] 3 (#$ . 6312)])
#@59 Create a new mail header structure initialized with INIT.
(defalias 'make-mail-header #[(&optional init) "\301\302\"\207" [init make-vector 10] 3 (#$ . 6457)])
(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 (#$ . 6692)])
(byte-code "\301\302\303\304#\210\305B\306\305!\204�\307\305\310\"\210\301\207" [current-load-list put make-full-mail-header byte-optimizer byte-compile-inline-expand nnheader-fake-message-id default-boundp set-default 1] 4)
(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\376�0\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\2221\307233\203\217b\210\323\320\3523@!\353Q\307\306#\203\2043@\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\202;�eb\210\310\311\306\312#\205R�\306\210\313!`\314\315\306\312#\2038�`\316Z\2029�`\211\205R�\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]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list nnheader-uniquify-message-id default-boundp set-default nil] 3)
(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\231�\324H\n\203\230�\325\n\211@@)!\326\n\211@A)\306\261\210\n\211A@\210\202x�)\327c\210\330u\210\331\327	\332#\203\256�\333\307!\210\202\237�\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 (#$ . 13682)])
#@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 (#$ . 14113)])
(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 (#$ . 15134)])
#@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\204G�m\204G�\313 \314y\210`|\210\202/�	V\203S�`\202
�	W\203_�`\202
�\315\211\203�	\204q�m\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\261�b\210\310 \210	.=\207" [found num prev cur min max nil 2 beginning-of-line t read point-at-bol 1 yes article] 7 (#$ . 15358)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\310B\302\310!\204K�\303\310\304\"\210\304\207" [current-load-list nntp-server-buffer default-boundp set-default nil nntp-process-response news-reply-yank-from news-reply-yank-message-id nnheader-callback-function] 3)
#@51 Initialize the Gnus-backend communication buffer.
(defalias 'nnheader-init-server-buffer #[nil "\303!\204\n�\304\305!rq\210\306 \210\307 \210\310 \210\311\312\302!\210\313)\311\207" [nntp-server-buffer case-fold-search nntp-process-response gnus-buffer-live-p get-buffer-create " *nntpd*" erase-buffer mm-enable-multibyte kill-all-local-variables t make-local-variable nil] 2 (#$ . 16462)])
#@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 (#$ . 16864)])
#@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 (#$ . 17175)])
#@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\202�m~\210\207" [search-forward "\n\n" nil t looking-at "[a-zA-Z][^ 	]+:.*\n\$[ 	].*\n\$*\\|From .*\n" 0] 4 (#$ . 17719)])
#@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\203�c\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 (#$ . 18014)])
#@41 Remove HEADER and insert the NEW-VALUE.
(defalias 'nnheader-replace-header #[(header new-value) "\212\214\302 \210\303!db\210\304	\305\261\210*\207" [header new-value nnheader-narrow-to-headers message-remove-header ": " "\n"] 5 (#$ . 18416)])
#@35 Narrow to the head of an article.
(defalias 'nnheader-narrow-to-headers #[nil "~\210eb\300\301\302\303#\203�`S\202�d}\210eb\207" [search-forward "\n\n" nil t] 5 (#$ . 18669)])
#@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 (#$ . 18853)])
#@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 (#$ . 19089)])
#@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 (#$ . 19280)])
#@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) (#$ . 19553))
#@43 Regexp that matches numerical file names.
(defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) (#$ . 19828))
#@48 Regexp that matches numerical full file names.
(defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) (#$ . 19967))
#@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 (#$ . 20110)])
(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) (#$ . 20456))
#@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 (#$ . 20810)])
#@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 (#$ . 21049)])
#@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 (#$ . 21387)])
#@48 Fold continuation lines in the current buffer.
(defalias 'nnheader-fold-continuation-lines #[nil "\300\301\302\"\207" [nnheader-replace-regexp "\$
?\n[ 	]+\$+" " "] 3 (#$ . 21870)])
#@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 (#$ . 22060)])
#@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 (#$ . 22577)])
#@42 Get the most recent report from BACKEND.
(defalias 'nnheader-get-report #[(backend) "\300\301\302\217\207" [nil (byte-code "\301\302\303\304\305\306\"!J#\207" [backend nnheader-message 5 "%s" intern format "%s-status-string"] 7) ((error (nnheader-message 5 "")))] 3 (#$ . 22857)])
#@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) "\212q\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 (#$ . 23146)])
(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\2031�SI\210I\210	T\211\202�-\207" [string i prev idx len from 0 nil to] 6 (#$ . 23752)])
#@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 (#$ . 24037)])
#@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 (#$ . 24425)])
#@57 Return whether the backends should be verbose on LEVEL.
(defalias 'nnheader-be-verbose #[(level) "\247?\206	�	X\207" [gnus-verbose-backends level] 2 (#$ . 24731)])
#@31 *Coding system for file name.
(defvar nnheader-pathname-coding-system 'iso-8859-1 (#$ . -24903))
#@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!\202B�P\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 (#$ . 25006)])
#@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 (#$ . 25447)])
#@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 (#$ . 25622)])
#@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 (#$ . 25823)])
#@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?\205D�A\211\202�A\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 (#$ . 25976)])
#@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 (#$ . 26803)])
#@46 Coding system used in file backends of Gnus.
(defvar nnheader-file-coding-system 'raw-text (#$ . 27143))
#@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 (#$ . 27255)])
(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\202M�ed|\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\306\211\306\311\312\313!\203�\313\202�\314\211J\306L\210\315\216\316\317\".\207" [format-alist auto-mode-alist default-major-mode enable-local-variables after-insert-file-functions enable-local-eval nil mm-auto-mode-alist 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 (#$ . 28202)])
#@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 (#$ . 28805)])
#@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 (#$ . 29053)])
(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 (#$ . 30043)])
#@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 (#$ . 30466)])
#@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 (#$ . 30899)])
(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])
(byte-code "\300\301!\210\302\303!\207" [run-hooks nnheader-load-hook provide nnheader] 2)

${this.title}

Code Editor : nnheader.elc