;ELC ;;; Compiled ;;; in Emacs version 27.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) #@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 (#$ . 777)) (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 (#$ . 1190)) (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 (#$ . 1392)) (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]$" (#$ . 6022)) (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 (#$ . 7854)) (nnoo-define 'nndoc-current-buffer nil) (defvar nndoc-address nil) (nnoo-define 'nndoc-address nil) #@16 nndoc version. (defconst nndoc-version "nndoc 1.0" (#$ . 8105)) (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\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; 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 (#$ . 9602)]) (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\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-live-p 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\307 !\203 \310\n \"A\211=\204\210\203\202\210\307\f!\2044\f;\203\210\311\f!\203\210\312\f!\204\210\n\313\314\n\315Q!\211B B\306r q\210\316 \210\3171|\f;\203e\320\f\"\203e\321 \322\f!)\202x\f;\203q\323\f!\210\202u\324\f!\210\325\326!0\202\206!\327\330\331\n!$)\210) \203\250 \204\250r q\210\332 \210\"\333=\203\244\334 \210\202\247\335 \210) \204\257\336 \210 )\207" [buf nndoc-current-buffer group nndoc-group-alist nndoc-address nndoc-dissection-alist nil buffer-live-p assoc 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 (#$ . 12352)]) (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 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-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\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-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\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\211r q\210\214\f@\307\f8}\210eb\210\310\311!\2030\312\313!\314\315 \"\2030\316 \317\211\224#\306\320\321\306\322#)\203@\312\313!*\323\324\n\206H\325\326\327 \206O\330\331\261+\207" [article nndoc-dissection-alist from subject entry nndoc-current-buffer nil 3 looking-at " *\\*\\(.*\\)$" match-string 1 string-match "[ ]+$" substring 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 "" 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!\207" [looking-at "\317\255\376"] 2]) (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 ash 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\236 T\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\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#\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 (#$ . 25489)]) (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 (#$ . 26847)]) #@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 (#$ . 27059)]) #@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 (#$ . 27485)]) #@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 (#$ . 30229)]) (provide 'nndoc)