| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/nndoc.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nndoc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\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 (#$ . -922))
(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 (#$ . -1337))
(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 (#$ . 1541))
(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\"\322QB\323\324\317\325\321\"\322QB\326BBB\327BBBBBBBBBBBBB\207" [(mmdf (article-begin . "^\n") (body-end . "^\n")) (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)))] 19))
#@37 Regexp for binary nndoc file names.
(defvar nndoc-binary-file-names ".[Dd][Bb][Xx]$" (#$ . 6087))
(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 (#$ . 7919))
(nnoo-define 'nndoc-current-buffer nil)
(defvar nndoc-address nil)
(nnoo-define 'nndoc-address nil)
#@16 nndoc version.
(defconst nndoc-version "nndoc 1.0" (#$ . 8170))
(nnoo-define-basics-1 'nndoc)
(defalias 'nndoc-retrieve-headers #[(articles &optional newsgroup server fetch-old) "\306 \"\205\204 r\nq\210\307 \210\310\211
@;\203 \311\202\203
\203
\211A@\211\236A\211\203 ` \312\313\f\"c\210\203F \f!\210\202P \314 @ A@#\210db\210`Sf\315=\204^ \316c\210\312\317\320 8\"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; \315
G\211!\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 zerop nndoc-close-group "No articles in group %s" nnheader-insert "211 %d %d %d %s\n" 1] 6 (#$ . 9664)])
(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\201 \203! \202\201 \311\f!\203- \307\f!\204> \f;\203\201 \312\f!\203\201 \313\f!\204\201 \n\314\315\n\316Q!\211B B\306r q\210\317 \210\f;\203l \320 \f\"\203l \321 \322\f!\210)\202\200 \f;\203x \323\f!\210\202| \324\f!\210\325\326!\210) \203\241
\204\241 r q\210\327 \210 \330=\203\235 \331 \210\202\240 \332 \210) \204\250 \333 \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 string-match binary mm-insert-file-contents nnheader-insert-file-contents insert-buffer-substring run-hooks nndoc-open-document-hook nndoc-set-delims mime-parts nndoc-dissect-mime-parts nndoc-dissect-buffer nndoc-close-server nndoc-binary-file-names coding-system-for-read nndoc-article-type] 5])
#@74 Set the nndoc delimiter variables according to the type of the document.
(defalias 'nndoc-set-delims #[nil "\305\203 \211A@\306L\210\202 )\306\307\n \236A\211\236\203& \310\n!\202 \205@ \311\312\313 \211 @@)\"! \211A@AL\210\202& )\207" [vars defs nndoc-article-type nndoc-type-alist x (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 (#$ . 12355)])
(defalias 'nndoc-guess-type #[(subtype) "\306\211\211 \n\204M \f\211A@\211\203M
\305 \236A\206 \307>\203 eb\210g\310=\2033 \311\312!\210\202& \313\314\315 @\"! \211\247\203 \n B B\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\306 P\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-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] 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#)\206 d\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`\306 r
q\210\214\307 \210\310\311!*\312
\f@\313\f8#\210\n\2032 \214 d}\210\314\315\316\n!\227!!\210)\203G b\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 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\205 eb\210 c*\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\211 r
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 {)\2058 eb\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\202 eb\210\307\312\301\304#\2038 \305\313\304\301#\210eb\210\307\314\301\304#\204Y eb\210\307\315\301\304#\203Y eb\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\211 r\"q\210\214
@
A@}\210eb\210\310\311!\203p \312\313\314!\315Q\316\317\307\320#\203@ \321#\313\322!!\211 $A@)\323Q\316\324\307\320#\203O \313\322!\202[ \316\325\307\320#\203[ \313\322!\316\326\307\320#\203p \313\322! P\313\314!\327\fQ*\f\203\207 \330\331\f\"\203\207 \332\333\320\211\f$\211\204u \334\f\206\215 \335\336 \206\223 \337\340\261\210\n\205\237 \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 x] 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 mm-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\312\n8!\204/ \312\n8 V\205\236 T\211 \306\211\211\305\257\fB\n@\305V\203Y \312\n8 V\203Y \312\n8Tb\210\310 \211\202> \n@ X\204p \nA@\305X\204p \311\312\n8!\204v \306\211\202 \313\n@\nA@\314#\211 X\204\213 dY\203\221 \306\211\202 b\210\310 \211\204 \306,\207" [tp p blk i nndoc-dissection-alist 0 nil 60117 nndoc-oe-dbx-decode-block zerop 3 + 17] 7])
(defalias 'nndoc-oe-dbx-generate-article #[(article &optional head) " \236Ap`\306\211 rq\210@\211eV\203> \nb\210\307 `r
q\210\310\n\211\311 8\\#\210)\312 8T\211\202 )\fb\210\313\314\306\315#\203Q \316\317!\210\202B \203r \fb\210\320\321\306\315#\203r AAAA\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\302\303\215*\207" [found nil done (byte-code "\301\302\303\304#\2036 \305\303y\210\306\307!\203\" \306\310!\203 T\303y\210\202
\305V\203 \306\311!\203 \312\313\314\"\210\202 \303\207" [found re-search-forward "\n\n[-A-Za-z0-9]+:" nil t 0 looking-at "[ ]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw done 9999] 4)] 2])
(defalias 'nndoc-mail-in-mail-article-begin #[nil "\302\211\303\304\215\205\f b*\207" [found point nil done (byte-code "\302\303\304\305#\2039 \306\307\224\304y\210\310\311!\203% \310\312!\203 T\304y\210\202 \306V\203 \310\313!\203 \314\315\305\"\210\202 \304\207" [found point re-search-forward "\n\n\\([-A-Za-z0-9]+:\\)" nil t 0 1 looking-at "[ ]\\|[-A-Za-z0-9]+:" "[-A-Za-z0-9]+:" "\n" throw done] 4)] 2])
(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\226 db\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\360 db\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 (#$ . 25513)])
(defalias 'nndoc-article-begin #[nil "\203 \207\301\302\303\217\207" [nndoc-article-begin-function nil (nndoc-search nndoc-article-begin) ((error))] 3])
#@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 (#$ . 26865)])
#@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 (#$ . 27077)])
#@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\211 7 8 9 : ; <=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\n A\317\3508\"\203%\351A\306\2118$\202*8AP)8\352;\347Q A\317\3538\"\203G\351A\306\2118$\202L8AP)8B\203v\354B\347Q A\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\211 E F G H\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 (#$ . 27503)])
#@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\"\210 AB\241)\207" [definition nndoc-type-alist position list delq last t first error "No such position: %s"] 4 (#$ . 30247)])
(provide 'nndoc)