Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
gnus /
[ HOME SHELL ]
Name
Size
Permission
Action
.dir-locals.el
105
B
-rw-r--r--
canlock.elc
5.71
KB
-rw-r--r--
deuglify.elc
7.85
KB
-rw-r--r--
gmm-utils.elc
5.79
KB
-rw-r--r--
gnus-agent.elc
119.17
KB
-rw-r--r--
gnus-art.elc
262.11
KB
-rw-r--r--
gnus-async.elc
11.71
KB
-rw-r--r--
gnus-bcklg.elc
2.85
KB
-rw-r--r--
gnus-bookmark.elc
25.33
KB
-rw-r--r--
gnus-cache.elc
24.08
KB
-rw-r--r--
gnus-cite.elc
26.28
KB
-rw-r--r--
gnus-cloud.elc
18.45
KB
-rw-r--r--
gnus-cus.elc
39.5
KB
-rw-r--r--
gnus-delay.elc
4.61
KB
-rw-r--r--
gnus-demon.elc
7.52
KB
-rw-r--r--
gnus-diary.elc
8.41
KB
-rw-r--r--
gnus-dired.elc
8.03
KB
-rw-r--r--
gnus-draft.elc
12.03
KB
-rw-r--r--
gnus-dup.elc
4.59
KB
-rw-r--r--
gnus-eform.elc
4.76
KB
-rw-r--r--
gnus-fun.elc
9.93
KB
-rw-r--r--
gnus-gravatar.elc
4.15
KB
-rw-r--r--
gnus-group.elc
154.92
KB
-rw-r--r--
gnus-html.elc
13.41
KB
-rw-r--r--
gnus-icalendar.elc
40.93
KB
-rw-r--r--
gnus-int.elc
58.83
KB
-rw-r--r--
gnus-kill.elc
19.24
KB
-rw-r--r--
gnus-logic.elc
5.15
KB
-rw-r--r--
gnus-mh.elc
2.96
KB
-rw-r--r--
gnus-ml.elc
6.08
KB
-rw-r--r--
gnus-mlspl.elc
6.48
KB
-rw-r--r--
gnus-msg.elc
84.49
KB
-rw-r--r--
gnus-notifications.elc
5.38
KB
-rw-r--r--
gnus-picon.elc
8.06
KB
-rw-r--r--
gnus-range.elc
11.97
KB
-rw-r--r--
gnus-registry.elc
34.53
KB
-rw-r--r--
gnus-rfc1843.elc
1.59
KB
-rw-r--r--
gnus-salt.elc
27.54
KB
-rw-r--r--
gnus-score.elc
74.27
KB
-rw-r--r--
gnus-sieve.elc
8.14
KB
-rw-r--r--
gnus-spec.elc
12.88
KB
-rw-r--r--
gnus-srvr.elc
50.09
KB
-rw-r--r--
gnus-start.elc
138.21
KB
-rw-r--r--
gnus-sum.elc
431.26
KB
-rw-r--r--
gnus-topic.elc
46.53
KB
-rw-r--r--
gnus-undo.elc
4.69
KB
-rw-r--r--
gnus-util.elc
49.29
KB
-rw-r--r--
gnus-uu.elc
55.9
KB
-rw-r--r--
gnus-vm.elc
2.42
KB
-rw-r--r--
gnus-win.elc
10.95
KB
-rw-r--r--
gnus.elc
158.84
KB
-rw-r--r--
gssapi.elc
2.27
KB
-rw-r--r--
legacy-gnus-agent.elc
6.35
KB
-rw-r--r--
mail-source.elc
28.21
KB
-rw-r--r--
message.elc
237.92
KB
-rw-r--r--
mm-archive.elc
2.95
KB
-rw-r--r--
mm-bodies.elc
5.84
KB
-rw-r--r--
mm-decode.elc
55.66
KB
-rw-r--r--
mm-encode.elc
6.13
KB
-rw-r--r--
mm-extern.elc
4.25
KB
-rw-r--r--
mm-partial.elc
3.05
KB
-rw-r--r--
mm-url.elc
9.75
KB
-rw-r--r--
mm-util.elc
24.33
KB
-rw-r--r--
mm-uu.elc
21.99
KB
-rw-r--r--
mm-view.elc
16.82
KB
-rw-r--r--
mml-sec.elc
35.2
KB
-rw-r--r--
mml-smime.elc
10.44
KB
-rw-r--r--
mml.elc
44.72
KB
-rw-r--r--
mml1991.elc
7.59
KB
-rw-r--r--
mml2015.elc
25.61
KB
-rw-r--r--
nnagent.elc
10.44
KB
-rw-r--r--
nnbabyl.elc
16.84
KB
-rw-r--r--
nndiary.elc
38.56
KB
-rw-r--r--
nndir.elc
2.67
KB
-rw-r--r--
nndoc.elc
30.1
KB
-rw-r--r--
nndraft.elc
10.55
KB
-rw-r--r--
nneething.elc
11.45
KB
-rw-r--r--
nnfolder.elc
32.39
KB
-rw-r--r--
nngateway.elc
2.88
KB
-rw-r--r--
nnheader.elc
34.72
KB
-rw-r--r--
nnimap.elc
73.06
KB
-rw-r--r--
nnir.elc
62.86
KB
-rw-r--r--
nnmail.elc
52.09
KB
-rw-r--r--
nnmaildir.elc
90.83
KB
-rw-r--r--
nnmairix.elc
72.33
KB
-rw-r--r--
nnmbox.elc
18.57
KB
-rw-r--r--
nnmh.elc
15.14
KB
-rw-r--r--
nnml.elc
33.63
KB
-rw-r--r--
nnnil.elc
1.63
KB
-rw-r--r--
nnoo.elc
8.63
KB
-rw-r--r--
nnregistry.elc
1.72
KB
-rw-r--r--
nnrss.elc
29.02
KB
-rw-r--r--
nnspool.elc
15.72
KB
-rw-r--r--
nntp.elc
111.69
KB
-rw-r--r--
nnvirtual.elc
18.31
KB
-rw-r--r--
nnweb.elc
16.67
KB
-rw-r--r--
score-mode.elc
4.93
KB
-rw-r--r--
smiley.elc
5.31
KB
-rw-r--r--
smime.elc
18.76
KB
-rw-r--r--
spam-report.elc
11.41
KB
-rw-r--r--
spam-stat.elc
19.39
KB
-rw-r--r--
spam-wash.elc
1.23
KB
-rw-r--r--
spam.elc
80.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : nndoc.elc
;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\204 r\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\250 r 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>\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-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#)\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-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\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!\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 {)\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!\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!\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\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 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\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\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 (#$ . 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\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 (#$ . 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)
Close
