HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/nndoc.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\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)
#@324 *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 (#$ . -777))
(nnoo-define 'nndoc-article-type nil)
#@119 *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 (#$ . -1192))
(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 (#$ . 1396))
(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]$" (#$ . 6026))
(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 (#$ . 7858))
(nnoo-define 'nndoc-current-buffer nil)
(defvar nndoc-address nil)
(nnoo-define 'nndoc-address nil)
#@16 nndoc version.
(defconst nndoc-version "nndoc 1.0" (#$ . 8109))
(nnoo-define-basics-1 'nndoc)
(defalias 'nndoc-retrieve-headers #[(articles &optional newsgroup server fetch-old) "\306	\"\205\204r\nq\210\307 \210\310\211
@;\203\311\202\203
\203
\211A\242\211\236A\211\203`\312\313\f\"c\210\203F\f!\210\202P\314@A@#\210db\210`Sf\315=\204^\316c\210\312\317\3208\"c\210\321c\210\203{\212\214`}\210!\210*)\202\322 \210\311+\207" [newsgroup server nntp-server-buffer entry article articles 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 nndoc-dissection-alist start nndoc-generate-head-function nndoc-current-buffer nndoc-header-transform-function] 4])
(nnoo-register-function 'nndoc-retrieve-headers)
(defalias 'nndoc-request-article #[(article &optional newsgroup server buffer) "\306	\"\210\212\n\206\f
\236A\307\211q\210\310 \210\205l\f;\203)\307\202l\2035\f!\202l\311@A@#\210\312c\210`\311\3138\3148#\210b\210\203a \210\203k\f!\210\315,\207" [newsgroup server buffer nntp-server-buffer article nndoc-dissection-alist nndoc-possibly-change-buffer nil erase-buffer insert-buffer-substring "\n" 2 3 t beg entry nndoc-generate-article-function nndoc-current-buffer nndoc-prepare-body-function nndoc-article-transform-function] 6])
(nnoo-register-function 'nndoc-request-article)
#@20 Select news GROUP.
(defalias 'nndoc-request-group #[(group &optional server dont-check info) "\306\307	\n\"\204\310\311\312#\202;\f\203\310\311\313	#\210\314\202;
G\211\315U\2034\316	!\210\310\311\317	#\202;\320\321\322	%)\207" [number group server nndoc-address dont-check 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] 6 (#$ . 9606)])
(nnoo-register-function 'nndoc-request-group)
(defalias 'nndoc-retrieve-groups #[(groups &optional server) "\304\211\203\n@\305	\"\210\nA\211\204*\306\207" [groups group --dolist-tail-- server nil nndoc-request-group t] 4])
(nnoo-register-function 'nndoc-retrieve-groups)
(defalias 'nndoc-request-type #[(group &optional article) "\204\302\207	\203\f	\207\302\207" [article nndoc-post-type unknown] 1])
(nnoo-register-function 'nndoc-request-type)
(defalias 'nndoc-close-group #[(group &optional server) "\305	\"\210\n\203\306\n!\203\307\n!\210\310\311\"\"\312\313\314	\"\210\312\315\207" [group server nndoc-current-buffer nndoc-group-alist nndoc-dissection-alist nndoc-possibly-change-buffer buffer-name kill-buffer delq assoc nil nnoo-close-server nndoc t] 4])
(nnoo-register-function 'nndoc-close-group)
(defalias 'nndoc-request-list #[(&optional server) "\300\207" [t] 1])
(nnoo-register-function 'nndoc-request-list)
(defalias 'nndoc-request-newgroups #[(date &optional server) "\300\207" [nil] 1])
(nnoo-register-function 'nndoc-request-newgroups)
(defalias 'nndoc-request-list-newsgroups #[(&optional server) "\300\207" [nil] 1])
(nnoo-register-function 'nndoc-request-list-newsgroups)
(defalias 'nndoc-possibly-change-buffer #[(group source) "\306	\203\307	!\203	\310\n\"A\211=\204\222\203!\202\222\311\f!\203-\307\f!\204>\f;\203\222\312\f!\203\222\313\f!\204\222\n\314\315\n\316Q!\211BB\306r	q\210\317 \210\3201\206\f;\203o\321 \f\"\203o\322!\323\f!)\202\202\f;\203{\324\f!\210\202\325\f!\210\326\327!0\202\220\"\330\331\332\n\"$)\210)	\203\262
\204\262r	q\210\333 \210#\334=\203\256\335 \210\202\261\336 \210)	\204\271\337 \210	)\207" [buf nndoc-current-buffer group nndoc-group-alist nndoc-address nndoc-dissection-alist nil buffer-name assoc bufferp file-exists-p file-directory-p get-buffer-create " *nndoc " "*" erase-buffer (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-binary-file-names coding-system-for-read error nndoc-article-type] 5])
#@74 Set the nndoc delimiter variables according to the type of the document.
(defalias 'nndoc-set-delims #[nil "\304\203\211A\242\305L\210\202)\305\306\n\236A\211\236\203&\307\n!\202	\205=\310\311\312	@@\"!	\211A\242AL\210\202&)\207" [vars defs 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"] 4 (#$ . 12395)])
(defalias 'nndoc-guess-type #[(subtype) "\306\211\211\n\204M\f\211A\242\211\203M
\305	\236A\206\307>\203eb\210g\310=\2033\311\312!\210\202&\313\314\315	@\"! \211\247\203\n	BB\306\211\203\f\n\204Y\204Y\316\317!\210\n\203b	@\202k\320\321\322\"!@A@,\207" [nndoc-type-alist entry result results alist subtype nil (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] 5])
(defalias 'nndoc-mbox-type-p #[nil "\301!\205\302\207" [message-unix-mail-delimiter looking-at t] 2])
(defalias 'nndoc-mbox-article-begin #[nil "\301\302P\303\304#\205
\305\224b\207" [message-unix-mail-delimiter re-search-forward "^" nil t 0] 4])
(defalias 'nndoc-mbox-body-end #[nil "`\304\211\212\305\306P\304\307#\205R`\211\205R\310\311\n\307#\205R\305\312\307#\205R\313\314\315!!\211\205R\310\311\n\307#\205R`	\\\211dU?\205R	dW\205R	b\205R\316!)\205X	b+\207" [end len beg 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] 4])
(defalias 'nndoc-mmdf-type-p #[nil "\300\301!\205\302\207" [looking-at "$" t] 2])
(defalias 'nndoc-debbugs-db-type-p #[nil "\300\301!\205\302\207" [looking-at "$" t] 2])
(defalias 'nndoc-news-type-p #[nil "\300\301!\205\302\207" [looking-at "^Path:.*\n" t] 2])
(defalias 'nndoc-rnews-type-p #[nil "\300\301!\205\302\207" [looking-at "#! *rnews" t] 2])
(defalias 'nndoc-rnews-body-end #[nil "\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 #[nil "\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 #[nil "\214\301 \210\302\303!)\211\205#\304\305\306\307#\205#\214`d}\210\310\311\312!\227!!))\207" [encoding 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 #[nil "\300\301\302\303#\205	\303\207" [re-search-forward "\f *\n" nil t] 4])
(defalias 'nndoc-babyl-body-begin #[nil "\302\303\304\305#\210\306\307!\205-\212\302\304\305#)\206d\302\303	\305#?\205,	b\210\310y\210\311c\210\310y)\207" [nndoc-article-begin next re-search-forward "^\n" nil t looking-at "\\*\\*\\* EOOH \\*\\*\\*" -1 "\n"] 4])
(defalias 'nndoc-babyl-head-begin #[nil "\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 #[nil "\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 #[nil "\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 #[nil "\300\301\302\303#\205	\303\207" [re-search-forward "^--__--__--\n+" nil t] 4])
(defalias 'nndoc-rfc822-forward-type-p #[nil "\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 #[nil "db\207" [] 1])
(defalias 'nndoc-rfc822-forward-generate-article #[(article &optional head) "	\236A`\306r
q\210\214\307 \210\310\311!*\312
\f@\313\f8#\210\n\2032\214d}\210\314\315\316\n!\227!!\210)\203Gb\210\317\320\306\321#\203G`Sd|\210+\321\207" [article nndoc-dissection-alist encoding begin entry 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 head] 5])
(defalias 'nndoc-rfc822-forward-generate-head #[(article) "\301\302\"\207" [article nndoc-rfc822-forward-generate-article head] 3])
(defalias 'nndoc-mime-parts-type-p #[nil "\302\303\304\305\302#eb\210\205\306\307\302#\205\302*\207" [limit case-fold-search t search-forward "\n\n" nil re-search-forward "^Content-Type:[ 	]*multipart/[a-z]+ *; *\\(\\(\n[ 	]\\)?.*;\\)*\\(\n[ 	]\\)?[ 	]*boundary=\"?[^\"\n]*[^\" 	\n]"] 5])
(defalias 'nndoc-transform-mime-parts #[(article) "	\236A\304\n8\211\205eb\210c*\207" [article nndoc-dissection-alist entry headers 5] 3])
(defalias 'nndoc-generate-mime-parts-head #[(article) "	\236A\305\n8\214``}\210\306\f\n@\nA@#\210db\210)\205!c*\207" [article nndoc-dissection-alist entry headers nndoc-current-buffer 6 insert-buffer-substring] 4])
(defalias 'nndoc-clari-briefs-type-p #[nil "\301\302\303\301\304#)\205\f\304\207" [case-fold-search nil re-search-forward "^	[^a-z]+ ([^a-z]+) --" t] 4])
(defalias 'nndoc-transform-clari-briefs #[(article) "eb\210\301\302!\203\303\304\305\211#\210\306!\207" [article looking-at " *\\*\\(.*\\)\n" replace-match "" t nndoc-generate-clari-briefs-head] 4])
(defalias 'nndoc-generate-clari-briefs-head #[(article) "	\236A\306\211r
q\210\214\f@\307\f8}\210eb\210\310\311!\203/\312\313!\314\315\"\203/\316\211\224O\306\317\320\306\321#)\203?\312\313!*\322\323\n\206G\324\325\326\206N\327\330\261+\207" [article nndoc-dissection-alist from subject entry nndoc-current-buffer 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" case-fold-search] 7])
(defalias 'nndoc-exim-bounce-type-p #[nil "\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 #[nil "db\207" [] 1])
(defalias 'nndoc-mime-digest-type-p #[nil "\305\306\211\211\307\310\306\305#\205=\311\224\205=\312\311!\313\n\314Q\315\f\236\211\316\317B\320\321B\322\317B\323	B\324\325B\326\327\n\330QB\257\241\210\305,\207" [entry b-delimiter boundary-id 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 "^--" "--[ 	]*$"] 11])
(defalias 'nndoc-standard-digest-type-p #[nil "\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 #[nil "\301\302\303#\205\304\224b\207" [nndoc-article-begin re-search-forward nil t 0] 4])
(defalias 'nndoc-slack-digest-type-p #[nil "\300\207" [0] 1])
(defalias 'nndoc-git-type-p #[nil "\300\301\302\303#\205\300\304\302\303#\205\300\305\302\303#\207" [search-forward "\n- Log ---" nil t "\ncommit " "\nAuthor: "] 4])
(defalias 'nndoc-transform-git-article #[(article) "eb\210\300\301\302\303#\205\304\305\303\211#\207" [re-search-forward "^Author: " nil t replace-match "From: "] 4])
(defalias 'nndoc-transform-git-headers #[(entry) "eb\210\303\304\305\306#\203\307\310\306\211#\210\305r	q\210\n@b\210\311\312\305\306#\203(`\313 {)\2058eb\210\314y\210\315\316\"c)\207" [subject nndoc-current-buffer entry re-search-forward "^Author: " nil t replace-match "From: " search-forward "\n\n" line-end-position 1 format "Subject: %s\n"] 4])
(defalias 'nndoc-lanl-gov-announce-type-p #[nil "\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])
(defalias 'nndoc-transform-lanl-gov-announce #[(article) "\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:"] 4])
(defalias 'nndoc-generate-lanl-gov-head #[(article) "	\236A\306\307\211r\"q\210\214
@
A@}\210eb\210\310\311!\203l\312\313\314!\315Q\316\317\307\320#\203<\321#\313\322!!A@\323Q\316\324\307\320#\203K\313\322!\202W\316\325\307\320#\203W\313\322!\316\326\307\320#\203l\313\322!P\313\314!\327\fQ*\f\203\203\330\331\f\"\203\203\332\333\320\211\f$\211\204q\334\f\206\211\335\336\206\217\337\340\261\210\n\205\233\341\n\261,\207" [article nndoc-dissection-alist date subject from entry "<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: " nndoc-current-buffer gnus-extract-address-components] 6])
(defalias 'nndoc-nsmail-type-p #[nil "\300\301!\205\302\207" [looking-at "From - " t] 2])
(defalias 'nndoc-outlook-article-begin #[nil "\300\301\302\303#\304\224b\210\207" [re-search-forward "From:\\|Received:" nil t 0] 4])
(defalias 'nndoc-outlook-type-p #[nil "\300\301!\207" [looking-at "JMF"] 2])
(defalias 'nndoc-oe-dbx-type-p #[nil "\300\301\302!!\207" [looking-at string-to-multibyte "\317\255\376"] 3])
(defalias 'nndoc-read-little-endian #[nil "\300\301f\302u\210\303\301f\302u\210\304\"\303\301f\302u\210\305\"\303\301f\302u\210\306\"$\207" [+ nil 1 lsh 8 16 24] 7])
(defalias 'nndoc-oe-dbx-decode-block #[nil "\300 \300 \300 \300 F\207" [nndoc-read-little-endian] 4])
(defalias 'nndoc-oe-dbx-dissection #[nil "\305\306\211\211\307b\210`m\204\310 \n\205\236\n@\305V\205\236\311\n8\305U\204/\311\n8	V\205\236T\211	\306\211\211\305\257\fB\n@\305V\203Y\311\n8	V\203Y\311\n8Tb\210\310 \211\202>\n@	X\204p\nA@\305X\204p\311\n8\305U\204v\306\211\202\312\n@\nA@\313#\211	X\204\213dY\203\221\306\211\202b\210\310 \211\204\306,\207" [tp p blk i nndoc-dissection-alist 0 nil 60117 nndoc-oe-dbx-decode-block 3 + 17] 7])
(defalias 'nndoc-oe-dbx-generate-article #[(article &optional head) "	\236Ap`\306\211rq\210@\211eV\203>\nb\210\307 `r
q\210\310\n\211\3118\\#\210)\3128T\211\202)\fb\210\313\314\306\315#\203Q\316\317!\210\202B\203r\fb\210\320\321\306\315#\203rAAAA\322`d\"\240\210`Sd|\210-\315\207" [article nndoc-dissection-alist p blk begin cur nil nndoc-oe-dbx-decode-block insert-buffer-substring 2 3 re-search-forward "
$" t delete-char -1 search-forward "\n\n" count-lines entry nndoc-current-buffer head] 7])
(defalias 'nndoc-oe-dbx-generate-head #[(article) "\301\302\"\207" [article nndoc-oe-dbx-generate-article head] 3])
(defalias 'nndoc-mail-in-mail-type-p #[nil "\301\212\3022?\303\304\301\305#\203=\306\301y\210\307\310!\203)\307\311!\203#T\301y\210\202\306V\203\307\312!\203\313\302\314\"\210\202\3010*\207" [found 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] 4])
(defalias 'nndoc-mail-in-mail-article-begin #[nil "\302\211\3032C\304\305\302\306#\203A\307\310\224\302y\210\311\312!\203-\311\313!\203'T\302y\210\202\307V\203\311\314!\203\315\303\306\"\210\202\3020\205H	b*\207" [found point 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] 4])
(defalias 'nndoc-request-accept-article #[(group &optional server last) "\300\207" [nil] 1])
(nnoo-register-function 'nndoc-request-accept-article)
(defalias 'nndoc-search #[(regexp) "\301\302\303#\304 \210\207" [regexp re-search-forward nil t beginning-of-line] 4])
#@70 Go through the document and partition it into heads/bodies/articles.
(defalias 'nndoc-dissect-buffer #[nil "\306\307\310\211\211\211\211\310rq\210eb\210g\311=\203'\312\313!\210\202\2032\212 \210)\203> \210\202\n\203H\314!\210
\203X\203X\314!\202c\f\203a\fb\202c\315 \203\n\310\211\203v \210\202\200\203\200\314!\210m\204\220\203\226\316!\203\226db\210\202H`\314\206\237\317!\210`\203\257 \210\202\270\314 \206\266\320!\210`!\203\305! \204\360\"\203\321\314\"!\204\360\315 \203\334`\211\204\360db\210\203\360\321\310\307#\203\360\322 \210`T\211\n	\323	\"\257B\202H)\237\211.\207" [body-end body-begin head-end head-begin art-begin first 0 t nil 10 delete-char 1 nndoc-search nndoc-article-begin looking-at "^$" "^\n" re-search-backward beginning-of-line count-lines i nndoc-dissection-alist nndoc-current-buffer nndoc-pre-dissection-function nndoc-dissection-function nndoc-file-begin nndoc-first-article 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] 9 (#$ . 25543)])
(defalias 'nndoc-article-begin #[nil "\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 #[nil "\300\301\302\303#\205\304\305\303\211#\210\202\207" [re-search-forward "^- -" nil t replace-match "-"] 4 (#$ . 26901)])
#@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 #[nil "\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 (#$ . 27113)])
#@416 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.
(defalias 'nndoc-dissect-mime-parts-sub #[(head-begin body-end article-insert position parent) "\306\307 \310\211\211\211\211\211\211\211\211\211789:;<=b\210\310f\311=\2032\312u\204;\202;\313\314>\306#\203E`S:`9\202M>:>9=:}\210=b\210\315\316!\211\203\236\317\320\"\203\201\321\312\"\227\321\322\"\227\n\323\230\205{	\324\2307\n\325\230\317\326\"\203\215\321\312\"\317\327\"\203\236\330\331\321\312\"!\332Q\f\204\257
\204\253?\204\257\315\333!\n\204\267\334\335?\204\304\336 ?=:\317\337?\"\204\322?\340P??8\341@\211\205\342
\205\342\342
\205\347\343@\204\360
\205\361\344	\335\230\203\373\n\202	\345\230\203\n\202	\346\f\205\f\344\f\347\260\nA\317\3508\"\203%\351A\306\2118$\202*8AP)8\352;\347QA\317\3538\"\203G\351A\306\2118$\202L8AP)8B\203v\354B\347QA\317\3558\"\203n\351A\306\2118$\202s8AP)8CT\211C=:9>\3569>\"?8\257DBD~\2107\203\254\212\3579>\310@;%)\202<
\205<\205<\360\310\211\211EFGH\317\361?\"\203\324\351\362\306\211?$?\202\300\310<9b\210\363>\306#?EE?\205;`G\363>\306#\203\321\312!\203\321\312!\362\230\204\306E\364y\210`F\312y\210\202>F\306E\212\357GF?@\211\205)\342\365\366HT\211H\"Q;%\210)\202\344-.\f\207" [boundary-regexp subtype type content-type subject multipart-any 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" message-rfc822 summary-insert body-begin head-end message-id case-fold-search head-begin body-end article-insert position line parent nndoc-mime-split-ordinal nndoc-dissection-alist eof-flag part-end part-begin part-counter] 13 (#$ . 27539)])
#@266 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.
(defalias 'nndoc-add-type #[(definition &optional position) "\304@	\236	\"\n\203\n\305=\203	C\244\211\207\n\306=\204%\n\307=\203+	B\211\207\n	\236	>\211\204:\310\311\n\"\210AB\241)\207" [definition nndoc-type-alist position list delq last t first error "No such position: %s"] 4 (#$ . 30283)])
(provide 'nndoc)