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



(byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310!\210\311\236\203+\311\236A\312\313\314\"\240\210\2026\311\312\313\314\"\314\211FB\311	\236\204B\311\315D	B\314\207" [nnoo-definition-alist nnoo-state-alist require nnheader message nnmail nnoo gnus-util mm-util nndoc mapcar list nil "*internal-non-initialized-backend*"] 4)
#@323 Type of the file.
One of `mbox', `babyl', `digest', `news', `rnews', `mmdf', `forward',
`rfc934', `rfc822-forward', `mime-parts', `standard-digest',
`slack-digest', `clari-briefs', `nsmail', `outlook', `oe-dbx',
`mailman', `exim-bounce', or `guess'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndoc-article-type 'guess (#$ . 453))
(nnoo-define 'nndoc-article-type nil)
#@118 Whether the nndoc group is `mail' or `post'.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndoc-post-type 'mail (#$ . 866))
(nnoo-define 'nndoc-post-type nil)
#@186 Hook run after opening a document.
The default function removes all trailing carriage returns
from the document.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndoc-open-document-hook 'nnheader-ms-strip-cr (#$ . 1067))
(nnoo-define 'nndoc-open-document-hook nil)
(defvar nndoc-type-alist (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\"\323QB\324\325\320\326\322\"\323QB\327BBB\330BBBBBBBBBBBBBB\207" [(mmdf (article-begin . "^



\n") (body-end . "^



\n")) (debbugs-db (file-begin . "^") (article-begin . "^[]\n") (body-end . "^")) (mime-digest (article-begin . #1="") (head-begin . "^ ?\n") (head-end . "^ ?$") (body-end . #1#) (file-end . #1#) (subtype digest guess)) (nsmail (article-begin . "^From - ")) (news (article-begin . "^Path:")) (rnews (article-begin . "^#! *rnews +\\([0-9]+\\) *\n") (body-end-function . nndoc-rnews-body-end)) (mbox (article-begin-function . nndoc-mbox-article-begin) (body-end-function . nndoc-mbox-body-end)) (babyl (article-begin . "\f *\n") (body-end . "") (body-begin-function . nndoc-babyl-body-begin) (head-begin-function . nndoc-babyl-head-begin)) (mime-parts (generate-head-function . nndoc-generate-mime-parts-head) (article-transform-function . nndoc-transform-mime-parts)) (exim-bounce (article-begin . "^------ This is a copy of the message, including all the headers. ------\n\n") (body-end-function . nndoc-exim-bounce-body-end-function)) (rfc934 (article-begin . "^--.*\n+") (body-end . "^--.*$") (prepare-body-function . nndoc-unquote-dashes)) (mailman (article-begin . "^--__--__--\n\nMessage:") (body-end . "^--__--__--$") (prepare-body-function . nndoc-unquote-dashes)) (clari-briefs (article-begin . "^ \\*") (body-end . "^	------*[ 	]^*\n^ \\*") (body-begin . "^	") (head-end . "^	") (generate-head-function . nndoc-generate-clari-briefs-head) (article-transform-function . nndoc-transform-clari-briefs)) standard-digest first-article "^" make-string 70 45 "\n *\n+" article-begin "^\n" 30 ((prepare-body-function . nndoc-unquote-dashes) (body-end-function . nndoc-digest-body-end) (head-end . "^ *$") (body-begin . "^ *\n") (file-end . "^End of .*digest.*[0-9].*\n\\*\\*\\|^End of.*Digest *$") (subtype digest guess)) ((slack-digest (article-begin . "^------------------------------*[\n 	]+") (head-end . "^ ?$") (body-end-function . nndoc-digest-body-end) (body-begin . "^ ?$") (file-end . "^End of") (prepare-body-function . nndoc-unquote-dashes) (subtype digest guess)) (google (pre-dissection-function . nndoc-decode-content-transfer-encoding) (article-begin . "^== [0-9]+ of [0-9]+ ==$") (head-begin . "^Date:") (head-end . "^$") (body-end-function . nndoc-digest-body-end) (body-begin . "^$") (file-end . "^==============================================================================$") (prepare-body-function . nndoc-unquote-dashes) (subtype digest guess)) (lanl-gov-announce (article-begin . "^\\\\\\\\\n") (head-begin . "^\\(Paper.*:\\|arXiv:\\)") (head-end . "\\(^\\\\\\\\.*\n\\|-----------------\\)") (body-begin . #1#) (body-end . "\\(-------------------------------------------------\\|%-%-%-%-%-%-%-%-%-%-%-%-%-%-\\|%%--%%--%%--%%--%%--%%--%%--%%--\\|%%%---%%%---%%%---%%%---\\)") (file-end . "\\(^Title: Recent Seminal\\|%%%---%%%---%%%---%%%---\\)") (generate-head-function . nndoc-generate-lanl-gov-head) (article-transform-function . nndoc-transform-lanl-gov-announce) (subtype preprints guess)) (git (file-begin . "\n- Log ---.*") (article-begin . "^commit ") (head-begin . "^Author: ") (body-begin . "^$") (file-end . "\n-----------------------------------------------------------------------") (article-transform-function . nndoc-transform-git-article) (header-transform-function . nndoc-transform-git-headers)) (rfc822-forward (article-begin . "^\n+") (body-end-function . nndoc-rfc822-forward-body-end-function) (generate-head-function . nndoc-rfc822-forward-generate-head) (generate-article-function . nndoc-rfc822-forward-generate-article)) (outlook (article-begin-function . nndoc-outlook-article-begin) (body-end . "")) (oe-dbx (dissection-function . nndoc-oe-dbx-dissection) (generate-head-function . nndoc-oe-dbx-generate-head) (generate-article-function . nndoc-oe-dbx-generate-article)) (forward (article-begin . "^-+ \\(Start of \\)?forwarded message.*\n+") (body-end . "^-+ End \\(of \\)?forwarded message.*$") (prepare-body-function . nndoc-unquote-dashes)) (mail-in-mail (article-begin-function . nndoc-mail-in-mail-article-begin)) (guess (guess . t) (subtype nil)) (digest (guess . t) (subtype nil)) (preprints (guess . t) (subtype nil)))] 20))
#@37 Regexp for binary nndoc file names.
(defvar nndoc-binary-file-names ".[Dd][Bb][Xx]$" (#$ . 5697))
(defvar nndoc-file-begin nil)
(nnoo-define 'nndoc-file-begin nil)
(defvar nndoc-first-article nil)
(nnoo-define 'nndoc-first-article nil)
(defvar nndoc-article-begin nil)
(nnoo-define 'nndoc-article-begin nil)
(defvar nndoc-head-begin nil)
(nnoo-define 'nndoc-head-begin nil)
(defvar nndoc-head-end nil)
(nnoo-define 'nndoc-head-end nil)
(defvar nndoc-file-end nil)
(nnoo-define 'nndoc-file-end nil)
(defvar nndoc-body-begin nil)
(nnoo-define 'nndoc-body-begin nil)
(defvar nndoc-body-end-function nil)
(nnoo-define 'nndoc-body-end-function nil)
(defvar nndoc-body-begin-function nil)
(nnoo-define 'nndoc-body-begin-function nil)
(defvar nndoc-head-begin-function nil)
(nnoo-define 'nndoc-head-begin-function nil)
(defvar nndoc-body-end nil)
(nnoo-define 'nndoc-body-end nil)
(defvar nndoc-dissection-alist nil)
(nnoo-define 'nndoc-dissection-alist nil)
(defvar nndoc-prepare-body-function nil)
(nnoo-define 'nndoc-prepare-body-function nil)
(defvar nndoc-generate-head-function nil)
(nnoo-define 'nndoc-generate-head-function nil)
(defvar nndoc-article-transform-function nil)
(nnoo-define 'nndoc-article-transform-function nil)
(defvar nndoc-header-transform-function nil)
(nnoo-define 'nndoc-header-transform-function nil)
(defvar nndoc-article-begin-function nil)
(nnoo-define 'nndoc-article-begin-function nil)
(defvar nndoc-generate-article-function nil)
(nnoo-define 'nndoc-generate-article-function nil)
(defvar nndoc-dissection-function nil)
(nnoo-define 'nndoc-dissection-function nil)
(defvar nndoc-pre-dissection-function nil)
(nnoo-define 'nndoc-pre-dissection-function nil)
(defvar nndoc-status-string "")
(nnoo-define 'nndoc-status-string nil)
(defvar nndoc-group-alist nil)
(nnoo-define 'nndoc-group-alist nil)
#@100 Current nndoc news buffer.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nndoc-current-buffer nil (#$ . 7529))
(nnoo-define 'nndoc-current-buffer nil)
(defvar nndoc-address nil)
(nnoo-define 'nndoc-address nil)
#@16 nndoc version.
(defconst nndoc-version "nndoc 1.0" (#$ . 7780))
(byte-code "\300\301\302\"\210\303\301!\210\300\304\305\"\210\303\304!\210\300\306\307\"\210\303\306!\210\300\310\311\"\210\303\310!\207" [defalias nndoc-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nndoc] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nndoc-status-message #[256 "\300\301\"\207" [nnoo-status-message nndoc] 4 "\n\n(fn &optional SERVER)"] nndoc-close-server #[512 "\300\301\"\207" [nnoo-close-server nndoc] 5 "\n\n(fn &optional SERVER DEFS)"] nndoc-open-server #[513 "\300\301#\207" [nnoo-change-server nndoc] 6 "\n\n(fn SERVER &optional DEFS)"]] 3)
#@54 

(fn ARTICLES &optional NEWSGROUP SERVER FETCH-OLD)
(defalias 'nndoc-retrieve-headers #[1025 "\305\"\205rq\210\306 \210\307\211@;\203\266\310\202~\203y\211A\262\242\211\262	\236A\211\262\203`\311\312\"c\210\n\203D\n!\210\202M\313@A@#\210db\210`Sf\314=\204[\315c\210\311\316\3178\"c\210\320c\210\f\203u\212\214\211`}\210\f!\210*\210\202\321 \266\310)\207" [nntp-server-buffer nndoc-dissection-alist nndoc-generate-head-function nndoc-current-buffer nndoc-header-transform-function nndoc-possibly-change-buffer erase-buffer nil headers format "221 %d Article retrieved.\n" insert-buffer-substring 10 "\n" "Lines: %d\n" 4 ".\n" nnheader-fold-continuation-lines] 11 (#$ . 8441)])
(nnoo-register-function 'nndoc-retrieve-headers)
#@50 

(fn ARTICLE &optional NEWSGROUP SERVER BUFFER)
(defalias 'nndoc-request-article #[1025 "\306\"\210\211\206\n	\236A\307rq\210\310 \210
\205\\;\203$\307\202\\\n\203/\n!\202\\\311@A@#\210\312c\210`\262
\311\3138\3148#\210\211b\210\f\203R\f \210
\203[
!\210\315)\207" [nntp-server-buffer nndoc-dissection-alist nndoc-generate-article-function nndoc-current-buffer nndoc-prepare-body-function nndoc-article-transform-function nndoc-possibly-change-buffer nil erase-buffer insert-buffer-substring "\n" 2 3 t] 12 (#$ . 9205)])
(nnoo-register-function 'nndoc-request-article)
#@65 Select news GROUP.

(fn GROUP &optional SERVER DONT-CHECK INFO)
(defalias 'nndoc-request-group #[1025 "\302\303\"\204\304\305\306#\207\203\304\305\307#\210\310\207	G\211\262\311U\2030\312!\210\304\305\313#\207\314\315\316	%\207" [nndoc-address nndoc-dissection-alist nil nndoc-possibly-change-buffer nnheader-report nndoc "No such file or buffer: %s" "Selected group %s" t 0 nndoc-close-group "No articles in group %s" nnheader-insert "211 %d %d %d %s\n" 1] 11 (#$ . 9806)])
(nnoo-register-function 'nndoc-request-group)
#@32 

(fn GROUPS &optional SERVER)
(defalias 'nndoc-retrieve-groups #[513 "
\211\203\211@\300
\"\210
A\266\202\202
\210\301\207" [nndoc-request-group t] 7 (#$ . 10351)])
(nnoo-register-function 'nndoc-retrieve-groups)
#@32 

(fn GROUP &optional ARTICLE)
(defalias 'nndoc-request-type #[513 "\211\204\301\207\203\f\207\301\207" [nndoc-post-type unknown] 3 (#$ . 10575)])
(nnoo-register-function 'nndoc-request-type)
#@31 

(fn GROUP &optional SERVER)
(defalias 'nndoc-close-group #[513 "\303\"\210\304!\203\305!\210\306\307	\"	\"\310\311\312\"\210\310\313\207" [nndoc-current-buffer nndoc-group-alist nndoc-dissection-alist nndoc-possibly-change-buffer buffer-live-p kill-buffer delq assoc nil nnoo-close-server nndoc t] 6 (#$ . 10778)])
(nnoo-register-function 'nndoc-close-group)
#@25 

(fn &optional SERVER)
(defalias 'nndoc-request-list #[256 "\300\207" [t] 2 (#$ . 11156)])
(nnoo-register-function 'nndoc-request-list)
#@30 

(fn DATE &optional SERVER)
(defalias 'nndoc-request-newgroups #[513 "\300\207" [nil] 3 (#$ . 11299)])
(nnoo-register-function 'nndoc-request-newgroups)
#@25 

(fn &optional SERVER)
(defalias 'nndoc-request-list-newsgroups #[256 "\300\207" [nil] 2 (#$ . 11459)])
(nnoo-register-function 'nndoc-request-list-newsgroups)
#@21 

(fn GROUP SOURCE)
(defalias 'nndoc-possibly-change-buffer #[514 "\306\307!\203\310	\"A\211\262=\204\211\211\203\211\202\211\307\n!\2044\n;\203\211\311\n!\203\211\312\n!\204\211\313\314\315Q!\211B	B\306rq\210\316 \210\317\306!\210\3201\n;\203g\321\f\n\"\203g\322\323\n!)\202z\n;\203s\324\n!\210\202w\325\n!\210\326\327!0\210\202\210\330\331\332$\266)\203\251\204\251rq\210\333 \210 \334=\203\245\335 \210\202\250\336 \210)\204\260\337 \210\207" [nndoc-current-buffer nndoc-group-alist nndoc-address nndoc-dissection-alist nndoc-binary-file-names coding-system-for-read nil buffer-live-p assoc file-exists-p file-directory-p gnus-get-buffer-create " *nndoc " "*" erase-buffer set-buffer-multibyte (file-error) string-match binary mm-insert-file-contents nnheader-insert-file-contents insert-buffer-substring run-hooks nndoc-open-document-hook nnheader-report nndoc "Couldn't open %s: %s" nndoc-set-delims mime-parts nndoc-dissect-mime-parts nndoc-dissect-buffer nndoc-close-server nndoc-article-type] 9 (#$ . 11626)])
#@74 Set the nndoc delimiter variables according to the type of the document.
(defalias 'nndoc-set-delims #[0 "\302\211\203\211
A\262\242\303L\210\202
\210\303\304	\236A\211\262\236\203&\305!\202\211\205>\306\307\310@@\"!
\211A\262\242AL\210\202&\207" [nndoc-article-type nndoc-type-alist (nndoc-file-begin nndoc-first-article nndoc-article-begin-function nndoc-head-begin nndoc-head-end nndoc-file-end nndoc-article-begin nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body-function nndoc-article-transform-function nndoc-header-transform-function nndoc-generate-head-function nndoc-body-begin-function nndoc-head-begin-function nndoc-generate-article-function nndoc-dissection-function nndoc-pre-dissection-function) nil guess nndoc-guess-type intern format "nndoc-%s"] 5 (#$ . 12695)])
#@16 

(fn SUBTYPE)
(defalias 'nndoc-guess-type #[257 "\301\211\211
\204M\211A\262\242\211\262\203M\302\236A\206\303>\203eb\210g\304=\2031\305\306!\210\202$\307\310\311@\"! \211\262\247\203

BB\262\301\262\202
\204Y\204Y\312\313!\210
\203a\211\202i\314\315\316\"!@A@\207" [nndoc-type-alist nil subtype (guess) 10 delete-char 1 intern format "nndoc-%s-type-p" error "Document is not of any recognized type" last sort car-less-than-car] 9 (#$ . 13523)])
(defalias 'nndoc-mbox-type-p #[0 "\301!\205\302\207" [message-unix-mail-delimiter looking-at t] 2])
(defalias 'nndoc-mbox-article-begin #[0 "\301\302P\303\304#\205
\305\224b\207" [message-unix-mail-delimiter re-search-forward "^" nil t 0] 4])
(defalias 'nndoc-mbox-body-end #[0 "`\301\211\212\302\303P\301\304#\205R`\211\262\205R\305\306\304#\205R\302\307\304#\205R\310\311\312!!\211\262\205R\305\306\304#\205R`\\\211\262dU?\205R
dW\205R
b\205R\313!)\205X
b\207" [message-unix-mail-delimiter nil re-search-backward "^" t search-forward "\n\n" "^Content-Length:[ 	]*\\([0-9]+\\) *$" string-to-number match-string 1 looking-at] 7])
(defalias 'nndoc-mmdf-type-p #[0 "\300\301!\205\302\207" [looking-at "



$" t] 2])
(defalias 'nndoc-debbugs-db-type-p #[0 "\300\301!\205\302\207" [looking-at "$" t] 2])
(defalias 'nndoc-news-type-p #[0 "\300\301!\205\302\207" [looking-at "^Path:.*\n" t] 2])
(defalias 'nndoc-rnews-type-p #[0 "\300\301!\205\302\207" [looking-at "#! *rnews" t] 2])
(defalias 'nndoc-rnews-body-end #[0 "\301\302\303#\205\304y\205`\305\306\304!!\\b\207" [nndoc-article-begin re-search-backward nil t 1 string-to-number match-string] 4])
(defalias 'nndoc-google-type-p #[0 "\300\301\302\303#\205	\303\207" [re-search-forward "^=3D=3D 1 of [0-9]+ =3D=3D$" nil t] 4])
(defalias 'nndoc-decode-content-transfer-encoding #[0 "\214\300 \210\301\302!)\211\205\"\303\304\305\306#\205\"\214`d}\210\307\310\311!\227!!)\207" [message-narrow-to-head message-fetch-field "content-transfer-encoding" search-forward "\n\n" nil t mm-decode-content-transfer-encoding intern mail-header-strip-cte] 5])
(defalias 'nndoc-babyl-type-p #[0 "\300\301\302\303#\205	\303\207" [re-search-forward "\f *\n" nil t] 4])
(defalias 'nndoc-babyl-body-begin #[0 "\301\302\303\304#\210\305\306!\205-\212\301\303\304#)\206d\301\302\304#?\205+\211b\210\307y\210\310c\210\307y\262
\207" [nndoc-article-begin re-search-forward "^\n" nil t looking-at "\\*\\*\\* EOOH \\*\\*\\*" -1 "\n"] 5])
(defalias 'nndoc-babyl-head-begin #[0 "\300\301\302\303#\205\304\305!\203\306y\210\303\207" [re-search-forward "^[0-9].*\n" nil t looking-at "\\*\\*\\* EOOH \\*\\*\\*" 1] 4])
(defalias 'nndoc-forward-type-p #[0 "\300\301\302\303#\205\304\305!\205\303\207" [re-search-forward "^-+ \\(Start of \\)?forwarded message.*\n+" nil t looking-at "[
\n]*[a-zA-Z][a-zA-Z0-9-]*:\\|^>?From "] 4])
(defalias 'nndoc-rfc934-type-p #[0 "\300\301\302\303#\205&\300\304\302\303#?\205&\305\306\302\303\307$?\205&\300\306\302\303\307$?\205&\303\207" [re-search-forward "^-+ Start of forwarded.*\n+" nil t "^Subject:.*digest" re-search-backward "^From:" 2] 5])
(defalias 'nndoc-mailman-type-p #[0 "\300\301\302\303#\205	\303\207" [re-search-forward "^--__--__--\n+" nil t] 4])
(defalias 'nndoc-rfc822-forward-type-p #[0 "\214\300 \210\301\302\303\304#\205
\304)\207" [message-narrow-to-head re-search-forward "^Content-Type: *message/rfc822" nil t] 4])
(defalias 'nndoc-rfc822-forward-body-end-function #[0 "db\207" [] 1])
#@31 

(fn ARTICLE &optional HEAD)
(defalias 'nndoc-rfc822-forward-generate-article #[513 "
\236A`\302r	q\210\214\303 \210\304\305!\262
*\306	@\3078#\210\211\2031\214
d}\210\310\311\312!\227!!\210)\203E
b\210\313\314\302\315#\203E`Sd|\210\266\315\207" [nndoc-dissection-alist nndoc-current-buffer nil message-narrow-to-head message-fetch-field "content-transfer-encoding" insert-buffer-substring 3 mm-decode-content-transfer-encoding intern mail-header-strip-cte search-forward "\n\n" t] 10 (#$ . 17031)])
#@16 

(fn ARTICLE)
(defalias 'nndoc-rfc822-forward-generate-head #[257 "\300
\301\"\207" [nndoc-rfc822-forward-generate-article head] 4 (#$ . 17548)])
(defalias 'nndoc-mime-parts-type-p #[0 "\301\302\303\304\301#
eb\210\211\205\305\306\301#\205\301)\207" [case-fold-search t search-forward "\n\n" nil re-search-forward "^Content-Type:[ 	]*multipart/[a-z]+ *; *\\(\\(\n[ 	]\\)?.*;\\)*\\(\n[ 	]\\)?[ 	]*boundary=\"?[^\"\n]*[^\" 	\n]"] 6])
#@16 

(fn ARTICLE)
(defalias 'nndoc-transform-mime-parts #[257 "\211\236A\301
8\211\205eb\210\211c\207" [nndoc-dissection-alist 5] 4 (#$ . 17993)])
#@16 

(fn ARTICLE)
(defalias 'nndoc-generate-mime-parts-head #[257 "\211\236A\302
8\214``}\210\303	@A@#\210db\210)\211\205\211c\207" [nndoc-dissection-alist nndoc-current-buffer 6 insert-buffer-substring] 7 (#$ . 18146)])
(defalias 'nndoc-clari-briefs-type-p #[0 "\301\302\303\301\304#)\205\f\304\207" [case-fold-search nil re-search-forward "^	[^a-z]+ ([^a-z]+) --" t] 4])
#@16 

(fn ARTICLE)
(defalias 'nndoc-transform-clari-briefs #[257 "eb\210\300\301!\203\302\303\304\211#\210\305
!\207" [looking-at " *\\*\\(.*\\)\n" replace-match "" t nndoc-generate-clari-briefs-head] 5 (#$ . 18529)])
#@16 

(fn ARTICLE)
(defalias 'nndoc-generate-clari-briefs-head #[257 "\211\236A\303\211r	q\210\214@\3048}\210eb\210\305\306!\203.\307\310!\262\311\312\"\203.
\313\211\224O\262\303\314\315\303\316#)\203>\307\310!\262
*\317\320\206F\321\322\323\206N\324\325\261\207" [nndoc-dissection-alist nndoc-current-buffer case-fold-search nil 3 looking-at " *\\*\\(.*\\)$" match-string 1 string-match "[ 	]+$" 0 re-search-forward "^	\\([^a-z]+\\(,[^(]+\\)? ([^a-z]+)\\) --" t "From: " "clari@clari.net (" "unknown" ")" "\nSubject: " "(no subject)" "\n"] 11 (#$ . 18751)])
(defalias 'nndoc-exim-bounce-type-p #[0 "\300\301\302\303#\205	\303\207" [re-search-forward "^------ This is a copy of the message, including all the headers. ------" nil t] 4])
(defalias 'nndoc-exim-bounce-body-end-function #[0 "db\207" [] 1])
(defalias 'nndoc-mime-digest-type-p #[0 "\302\303\211\211\304\305\303\302#\205@\306\224\205@\307\306!\262\310\311Q\262\312	\236\262
\211\313\314B\315\316B\317\314B\320B\321\322B\323\324\n\325QB\257\241\210\302)\207" [case-fold-search nndoc-type-alist t nil re-search-forward "^Content-Type: *multipart/digest;[ 	\n]*[ 	]boundary=\"?\\([^\"\n]*[^\" 	\n]\\)" 1 match-string "\n--" "[ 	]*$" mime-digest head-begin "^ ?\n" head-end "^ ?$" body-begin article-begin body-end-function nndoc-digest-body-end file-end "^--" "--[ 	]*$"] 14])
(defalias 'nndoc-standard-digest-type-p #[0 "\300\301\302\303\304\"\305Q\306\307#\205\300\305\302\310\304\"\305Q\306\307#\205\307\207" [re-search-forward "^" make-string 70 45 "\n\n" nil t 30] 5])
(defalias 'nndoc-digest-body-end #[0 "\301\302\303#\205\304\224b\207" [nndoc-article-begin re-search-forward nil t 0] 4])
(defalias 'nndoc-slack-digest-type-p #[0 "\300\207" [0] 1])
(defalias 'nndoc-git-type-p #[0 "\300\301\302\303#\205\300\304\302\303#\205\300\305\302\303#\207" [search-forward "\n- Log ---" nil t "\ncommit " "\nAuthor: "] 4])
#@16 

(fn ARTICLE)
(defalias 'nndoc-transform-git-article #[257 "eb\210\300\301\302\303#\205\304\305\303\211#\207" [re-search-forward "^Author: " nil t replace-match "From: "] 5 (#$ . 20672)])
#@14 

(fn ENTRY)
(defalias 'nndoc-transform-git-headers #[257 "eb\210\301\302\303\304#\203\305\306\304\211#\210\303rq\210
@b\210\307\310\303\304#\203(`\311 {\262
)\211\2058eb\210\312y\210\313\314\"c\207" [nndoc-current-buffer re-search-forward "^Author: " nil t replace-match "From: " search-forward "\n\n" line-end-position 1 format "Subject: %s\n"] 6 (#$ . 20869)])
(defalias 'nndoc-lanl-gov-announce-type-p #[0 "\301\302\303\301\304#)\205\f\304\207" [case-fold-search nil re-search-forward "^\\\\\\\\\n\\(Paper\\( (\\*cross-listing\\*)\\)?: [a-zA-Z\\.-]+/[0-9]+\\|arXiv:\\)" t] 4])
#@16 

(fn ARTICLE)
(defalias 'nndoc-transform-lanl-gov-announce #[257 "\301db\210\302\303\301\304#\203\305\306\304\301#\210eb\210\307\310\301\304#\203'\305\311\304\301#\210\202eb\210\307\312\301\304#\2038\305\313\304\301#\210eb\210\307\314\301\304#\204Yeb\210\307\315\301\304#\203Yeb\210\316\317\320!\321\261\210\307\322\301\304#\205f\305\323\304\301#)\207" [case-fold-search nil re-search-backward "^\\\\\\\\ +( *\\([^ ]*\\) , *\\([^ ]*\\))" t replace-match "\n\nGet it at \\1 (\\2)" re-search-forward "^\\\\\\\\$" "" "^replaced with revised version +\\(.*[^ ]\\) +" "Date: \\1 (revised) " "^From" "^Authors?: \\(.*\\)" "From: " match-string 1 "\n" "^arXiv:" "Paper: arXiv:"] 5 (#$ . 21464)])
#@16 

(fn ARTICLE)
(defalias 'nndoc-generate-lanl-gov-head #[257 "\211\236A\303\304\211r	q\210\214@A@}\210eb\210\305\306!\203l\307\310\311!\312Q\262\313\314\304\315#\2038\316\n\310\317!!A@\320Q\262\313\321\304\315#\203H\310\317!\262
\202U\313\322\304\315#\203U\310\317!\262
\313\323\304\315#\203l\310\317!P\262\310\311!\324Q\262*\203\204\325\326\"\203\204\327\330\315\211$\262\202m\331\206\212\332\333\206\220\334\335\261\210\211\205\234\336
\261\207" [nndoc-dissection-alist nndoc-current-buffer gnus-extract-address-components "<no address given>" nil looking-at "^\\(Paper.*: \\|arXiv:\\)\\([0-9a-zA-Z\\./-]+\\)" " (" match-string 2 ")" re-search-forward "^From: \\(.*\\)" t "<" 1 ">" "^Date: +\\([^(]*\\)" "^replaced with revised version +\\([^(]*\\)" "^Title: \\([^\f]*\\)\nAuthors?: \\(.*\\)" " " string-match "([^)]*)" replace-match "" "From: " "unknown" "\nSubject: " "(no subject)" "\n" "Date: "] 10 (#$ . 22171)])
(defalias 'nndoc-nsmail-type-p #[0 "\300\301!\205\302\207" [looking-at "From - " t] 2])
(defalias 'nndoc-outlook-article-begin #[0 "\300\301\302\303#\304\224b\210\207" [re-search-forward "From:\\|Received:" nil t 0] 4])
(defalias 'nndoc-outlook-type-p #[0 "\300\301!\207" [looking-at "JMF"] 2])
(defalias 'nndoc-oe-dbx-type-p #[0 "\300\301!\207" [looking-at "\317\255\376"] 2])
(defalias 'nndoc-read-little-endian #[0 "\300\301f\302u\210\303\301f\302u\210\304\"\303\301f\302u\210\305\"\303\301f\302u\210\306\"$\207" [+ nil 1 ash 8 16 24] 7])
(defalias 'nndoc-oe-dbx-decode-block #[0 "\300 \300 \300 \300 F\207" [nndoc-read-little-endian] 4])
(defalias 'nndoc-oe-dbx-dissection #[0 "\301\302\211\211\303b\210`\262m\204\304 \262\205\236@\301V\205\236\3058\301U\204-\3058V\205\236T\211\262\302\211\211\301\257B@\301V\203X\3058V\203X\3058Tb\210\304 \262\202<@X\204oA@\301X\204o\3058\301U\204u\302\262\202@A@\\\306\\\262
\211X\204\213\211dY\203\221\302\262\202\211b\210\211\262\304 \262\202\207" [nndoc-dissection-alist 0 nil 60117 nndoc-oe-dbx-decode-block 3 17] 10])
#@31 

(fn ARTICLE &optional HEAD)
(defalias 'nndoc-oe-dbx-generate-article #[513 "
\236Ap`\302\211r	q\210@\262
\211eV\2039\211b\210\303 \262`\262
rq\210\304	\211\3058\\#\210)\3068T\262
\202)b\210\307\310\302\311#\203L\312\313!\210\202=\203kb\210\314\315\302\311#\203kAAAA\316`d\"\240\210`Sd|\210\311\207" [nndoc-dissection-alist nndoc-current-buffer nil nndoc-oe-dbx-decode-block insert-buffer-substring 2 3 re-search-forward "
$" t delete-char -1 search-forward "\n\n" count-lines] 13 (#$ . 24243)])
#@16 

(fn ARTICLE)
(defalias 'nndoc-oe-dbx-generate-head #[257 "\300
\301\"\207" [nndoc-oe-dbx-generate-article head] 4 (#$ . 24765)])
(defalias 'nndoc-mail-in-mail-type-p #[0 "\300\212\3012@\302\303\300\304#\203>\305\262
\300y\210\306\307!\203*\306\310!\203$\211T\262
\300y\210\202\211\305V\203\306\311!\203\312\301\313\"\210\202\3000)\207" [nil done re-search-forward "\n\n[-A-Za-z0-9]+:" t 0 looking-at "[ 	]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw 9999] 5])
(defalias 'nndoc-mail-in-mail-article-begin #[0 "\300\211\3012D\302\303\300\304#\203B\305\262
\306\224\262\300y\210\307\310!\203.\307\311!\203(\211T\262
\300y\210\202\211\305V\203\307\312!\203\313\301\304\"\210\202\3000\205I
b\207" [nil done re-search-forward "\n\n\\([-A-Za-z0-9]+:\\)" t 0 1 looking-at "[ 	]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw] 6])
#@36 

(fn GROUP &optional SERVER LAST)
(defalias 'nndoc-request-accept-article #[769 "\300\207" [nil] 4 (#$ . 25622)])
(nnoo-register-function 'nndoc-request-accept-article)
#@15 

(fn REGEXP)
(defalias 'nndoc-search #[257 "\300
\301\302#\303 \210\207" [re-search-forward nil t beginning-of-line] 5 (#$ . 25798)])
#@70 Go through the document and partition it into heads/bodies/articles.
(defalias 'nndoc-dissect-buffer #[0 "\306\307\310\211\211\211\211\211r	q\210eb\210g\311=\203\312\313!\210\202\n\203&\212\n \210)\2030 \210\202\377\f\2038\314\f!\210\203F
\203F\314
!\202Q\203Ob\202Q\315 \203\377\310\262\310\262\203f \210\202p\203p\314!\210m\204\200\203\206\316!\203\206db\210\2028`\262\314\206\220\317!\210`\262\203\241 \210\202\252\314\206\250\320!\210`\262\203\270 \204\344\203\304\314!\204\344\315 \203\320`\211\262\204\344db\210\203\344\321\310\307#\203\344\322 \210`\262
T\211\262\323\"\257B\2028)\237\211\207" [nndoc-dissection-alist nndoc-current-buffer nndoc-pre-dissection-function nndoc-dissection-function nndoc-file-begin nndoc-first-article 0 t nil 10 delete-char 1 nndoc-search nndoc-article-begin looking-at "^$" "^\n" re-search-backward beginning-of-line count-lines nndoc-head-begin-function nndoc-head-begin nndoc-file-end nndoc-head-end nndoc-body-begin-function nndoc-body-begin nndoc-body-end-function nndoc-body-end] 15 (#$ . 25939)])
(defalias 'nndoc-article-begin #[0 "\203 \207\3021\303	!0\207\210\304\207" [nndoc-article-begin-function nndoc-article-begin (error) nndoc-search nil] 2])
#@43 Unquote quoted non-separators in digests.
(defalias 'nndoc-unquote-dashes #[0 "\300\301\302\303#\205\304\305\303\211#\210\202\207" [re-search-forward "^- -" nil t replace-match "-"] 4 (#$ . 27242)])
#@210 Go through a MIME composite article and partition it into sub-articles.
When a MIME entity contains sub-entities, dissection produces one article for
the header of this entity, and one article per sub-entity.
(defalias 'nndoc-dissect-mime-parts #[0 "\303\304r\nq\210\305ed\303\211\211%)\207" [nndoc-dissection-alist nndoc-mime-split-ordinal nndoc-current-buffer nil 0 nndoc-dissect-mime-parts-sub] 6 (#$ . 27452)])
#@473 Dissect an entity, within a composite MIME message.
The complete message or MIME entity extends from HEAD-BEGIN to BODY-END.
ARTICLE-INSERT should be added at beginning for generating a full article.
The string POSITION holds a dotted decimal representation of the article
position in the hierarchical structure, it is nil for the outer entity.
PARENT is the message-ID of the parent summary line, or nil for none.

(fn HEAD-BEGIN BODY-END ARTICLE-INSERT POSITION PARENT)
(defalias 'nndoc-dissect-mime-parts-sub #[1285 "\303\304 \305\211\211\211\211\211\211\211\211\211b\210\305f\306=\203#\307u\204,\202,\310\311\303#\2036`S\262\n`\262	\202>\262\n\262	\n}\210b\210\312\313!\262\203\226\314\315\"\203v\316\307\"\227\262\316\317\"\227\262\320\230\205o
\321\230\262\322\230\262\314\323\"\203\203\316\307\"\262\314\324\"\203\226\325\326\316\307\"!\327Q\262
\204\250\204\243\204\250\312\330!\262\204\262\331\262\332\262\204\277\333 \262\262\n\314\334\"\204\315\335P\262\262\336\211\205\336\205\336\337\205\344\340\204\356	\205\357\341\332\230\203\373\202	
\342\230\203
\202	
\343\205
\341\f\344\260\n\314\345\n\"\203'
\346
\303\211\f$\202+

P\262
\262\347\344Q\314\350\n\"\203F
\346
\303\211\f$\202J

P\262
\262\f\203r
\351
\344Q\314\352\n\"\203j
\346
\303\211\f$\202n

P\262
\262	T\211\353\"\257\nB~\210\203\244
\212\354	\305%)\202*\205*\211\205*\355\305\211\211\314\356\"\203\304
\346\357\303\211$\262\202\260
\305\fb\210\360\303#?\262
\211?\205'`\262\360\303#\203
\316\307!\203\365
\316\307!\357\230\204\365
\303\262
\361y\210`\262\307y\210\202\262\303\262
\212\354\211\205\337\362\363T\211\262
\"Q%\210)\202\323
)\266\204)\207" [case-fold-search nndoc-mime-split-ordinal nndoc-dissection-alist t nnmail-message-id nil 10 1 search-forward "\n\n" message-fetch-field "Content-Type" string-match "^ *\\([^ 	\n/;]+\\)/\\([^ 	\n/;]+\\)" match-string 2 "message" "rfc822" "multipart" ";[ 	\n]*name=\\([^ 	\n;]+\\)" "boundary=\"?\\([^\"\n]*[^\" 	\n]\\)" "^--" regexp-quote "\\(--\\)?[ 	]*\n" "Subject" "text" "plain" buffer-string "MIME-Version:" "MIME-Version: 1.0\n" "Subject: <" "." "*" " " "basic" ">" "\n" "Subject:.*\n\\([ 	].*\n\\)*" replace-match "Message-ID: " "Message-ID:.*\n\\([ 	].*\n\\)*" "References: " "References:.*\n\\([ 	].*\n\\)*" count-lines nndoc-dissect-mime-parts-sub 0 "^\\(Lines\\|Content-\\(Type\\|Transfer-Encoding\\|Disposition\\)\\):.*\n\\([ 	].*\n\\)*" "" re-search-forward -1 format "%d"] 31 (#$ . 27876)])
#@302 Add document DEFINITION to the list of nndoc document definitions.
If POSITION is nil or `last', the definition will be added
as the last checked definition, if t or `first', add as the
first definition, and if any other symbol, add after that
symbol in the alist.

(fn DEFINITION &optional POSITION)
(defalias 'nndoc-add-type #[513 "\301@\236\"\211\203\211\302=\203C\244\211\207\211\303=\204%\211\304=\203+
B\211\207\211\236>\211\2049\305\306\"\210\211AB\241\207" [nndoc-type-alist delq last t first error "No such position: %s"] 6 (#$ . 30499)])
(provide 'nndoc)