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 : mm-uu.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\"\210\306\311\310\"\210\306\312\310\"\210\306\313\314\"\210\306\315\314\"\210\306\316\314\"\210\306\317\320\"\210\306\321\320\"\210\322\323\324\325\326DD\327\330\331\332\333&\210\322\334\324\325\335DD\336\330\337\332\333&\207" [require mail-parse nnheader mm-decode mailcap mml2015 autoload uudecode-decode-region "uudecode" uudecode-decode-region-external uudecode-decode-region-internal binhex-decode-region "binhex" binhex-decode-region-external binhex-decode-region-internal yenc-decode-region "yenc" yenc-extract-filename custom-declare-variable mm-uu-decode-function funcall function #[0 "\300\207" [uudecode-decode-region] 1] "Function to uudecode.\nInternal function is done in Lisp by default, therefore decoding may\nappear to be horribly slow. You can make Gnus use an external\ndecoder, such as uudecode." :type (choice (function-item :tag "Auto detect" uudecode-decode-region) (function-item :tag "Internal" uudecode-decode-region-internal) (function-item :tag "External" uudecode-decode-region-external)) :group gnus-article-mime mm-uu-binhex-decode-function #[0 "\300\207" [binhex-decode-region] 1] "Function to binhex decode.\nInternal function is done in elisp by default, therefore decoding may\nappear to be horribly slow . You can make Gnus use the external Unix\ndecoder, such as hexbin." (choice (function-item :tag "Auto detect" binhex-decode-region) (function-item :tag "Internal" binhex-decode-region-internal) (function-item :tag "External" binhex-decode-region-external))] 8) (defvar mm-uu-yenc-decode-function 'yenc-decode-region) (defvar mm-uu-beginning-regexp nil) #@83 The default disposition of uu parts. This can be either "inline" or "attachment". (defvar mm-dissect-disposition "inline" (#$ . 2096)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\313& \210\300\320\302\303\321DD\322\306\323\310\311\312\313& \207" [custom-declare-variable mm-uu-emacs-sources-regexp funcall function #[0 "\300\207" [#1="\\.emacs\\.sources"] 1 #1#] "The regexp of Emacs sources groups." :version "22.1" :type regexp :group gnus-article-mime mm-uu-diff-groups-regexp #[0 "\300\207" [#2="."] 1 #2#] "Regexp matching diff groups." "27.1" mm-uu-tex-groups-regexp #[0 "\300\207" [#3="\\.tex\\>"] 1 #3#] "Regexp matching TeX groups." "23.1"] 10) #@385 A list of specifications for non-MIME attachments. Each element consist of a `mm-uu-entry'. The functions in the last 3 slots of this type can make use of the following dynamically-scoped variables: `file-name', `start-point', and `end-point'. After modifying this list you must run \[mm-uu-configure]. You can disable elements from this list by customizing `mm-uu-configure-list'. (defvar mm-uu-type-alist (byte-code "\300\301\302\303\304BBBB\305\306\307\310\311\257\312\313\314\315\316\317\257\320\321\322\323\324\257\325\326\327\330F\331\332\333\334\316\335\257\336\337\316\340F\341\342\343\344\345BBBB\346\347\350\351\352BBBB\353\354\355\356\357\360BBBBB\361\362\363\364\316\365\257\366\367\316\370\316\371\257\366\372\316\370\316\371\257\373\374\375\370\316\371\257\376\377\211\201@ \201A BBBB\201B \201C \211\201D \201E BBBB\201F \201G \201H \201I \201J BBBB\201K \201L \201M \201N \316\201O \257\201P \201Q \201R \201S F\201T \201U \201V \201S F\257\207" [postscript "^%!PS-" "^%%EOF$" mm-uu-postscript-extract (nil) uu "^begin[ ]+0?[0-7][0-7][0-7][ ]+" "^end[ ]*$" mm-uu-uu-extract mm-uu-uu-filename binhex "^:.\\{63,63\\}$" ":$" mm-uu-binhex-extract nil mm-uu-binhex-filename yenc "^=ybegin.*size=[0-9]+.*name=.*$" "^=yend.*size=[0-9]+" mm-uu-yenc-extract mm-uu-yenc-filename shar "^#! */bin/sh" "^exit 0$" mm-uu-shar-extract forward "^-+ \\(Start of \\)?Forwarded message" "^-+ End \\(of \\)?forwarded message" mm-uu-forward-extract mm-uu-forward-test gnatsweb "^----gnatsweb-attachment----" mm-uu-gnatsweb-extract pgp-signed "^-----BEGIN PGP SIGNED MESSAGE-----" "^-----END PGP SIGNATURE-----" mm-uu-pgp-signed-extract (nil nil) pgp-encrypted "^-----BEGIN PGP MESSAGE-----" "^-----END PGP MESSAGE-----" mm-uu-pgp-encrypted-extract (nil nil) pgp-key "^-----BEGIN PGP PUBLIC KEY BLOCK-----" "^-----END PGP PUBLIC KEY BLOCK-----" mm-uu-pgp-key-extract mm-uu-gpg-key-skip-to-last (nil) emacs-sources "^;;;?[ ]*[^ ]+\\.el[ ]*--" "^;;;?[ ]*\\([^ ]+\\.el\\)[ ]+ends here" mm-uu-emacs-sources-extract mm-uu-emacs-sources-test diff "^Index: " mm-uu-diff-extract mm-uu-diff-test "^=== modified file " git-format-patch "^diff --git " "^-- " message-marks "^-+[8<>]*-\\{9,\\}[a-z ]+-\\{9,\\}[a-z ]+-\\{9,\\}[8<>]*-+$" #[0 "\300\301\211\302\303$\207" [mm-uu-verbatim-marks-extract 0 1 -1] 5] (nil) insert-marks "^ *\\(-\\|_\\)\\{30,\\}.*[a-z8<].*\\(-\\|_\\)\\{30,\\} *$" #[0 "\300\301\211\302\303$\207" [mm-uu-verbatim-marks-extract 0 1 -1] 5] (nil) verbatim-marks "^#v\\+" "^#v\\-$" #[0 "\300\301\211\"\207" [mm-uu-verbatim-marks-extract 0] 3] (nil) LaTeX "^\\([\\\\%][^\n]+\n\\)*\\\\documentclass.*[[{%]" "^\\\\end{document}" mm-uu-latex-extract mm-uu-latex-test org-src-code-block "^[ ]*#\\+begin_" "^[ ]*#\\+end_" mm-uu-org-src-code-block-extract org-meta-line "^[ ]*#\\+[[:alpha:]]+: " "$"] 23) (#$ . 2828)) (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\"\314\315& \207" [mm-uu-type-alist custom-declare-variable mm-uu-configure-list funcall function #[0 "\300\207" [((shar . disabled))] 1] "A list of mm-uu configuration.\nTo disable dissecting shar codes, for instance, add\n`(shar . disabled)' to this list." :type alist :options mapcar #[257 "\211@\300D\207" [(const disabled)] 3 "\n\n(fn ENTRY)"] :group gnus-article-mime] 10) #@115 MIME type and parameters for text/plain parts. `gnus-decoded' is a fake charset, which means no further decoding. (defvar mm-uu-text-plain-type '("text/plain" (charset . gnus-decoded)) (#$ . 6108)) #@67 compiler-macro for inlining `mm-uu-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-type (progn (car cl-x))) nil] 9 (#$ . 6312)]) (put 'mm-uu-type 'compiler-macro 'mm-uu-type--cmacro) #@61 Access slot "type" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-type #[257 "\211@\207" [] 2 (#$ . 6599)]) (byte-code "\300\301\302\303#\300\207" [function-put mm-uu-type side-effect-free t] 4) #@79 compiler-macro for inlining `mm-uu-beginning-regexp'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-beginning-regexp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-beginning-regexp (progn (nth 1 cl-x))) nil] 9 (#$ . 6811)]) (put 'mm-uu-beginning-regexp 'compiler-macro 'mm-uu-beginning-regexp--cmacro) #@73 Access slot "beginning-regexp" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-beginning-regexp #[257 "\211A@\207" [] 2 (#$ . 7160)]) (byte-code "\300\301\302\303#\300\207" [function-put mm-uu-beginning-regexp side-effect-free t] 4) #@73 compiler-macro for inlining `mm-uu-end-regexp'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-end-regexp--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-end-regexp (progn (nth 2 cl-x))) nil] 9 (#$ . 7409)]) (put 'mm-uu-end-regexp 'compiler-macro 'mm-uu-end-regexp--cmacro) #@67 Access slot "end-regexp" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-end-regexp #[257 "\3008\207" [2] 3 (#$ . 7728)]) (byte-code "\300\301\302\303#\300\207" [function-put mm-uu-end-regexp side-effect-free t] 4) #@79 compiler-macro for inlining `mm-uu-function-extract'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-function-extract--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-function-extract (progn (nth 3 cl-x))) nil] 9 (#$ . 7960)]) (put 'mm-uu-function-extract 'compiler-macro 'mm-uu-function-extract--cmacro) #@73 Access slot "function-extract" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-function-extract #[257 "\3008\207" [3] 3 (#$ . 8309)]) (byte-code "\300\301\302\303#\300\207" [function-put mm-uu-function-extract side-effect-free t] 4) #@73 compiler-macro for inlining `mm-uu-function-1'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-function-1--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-function-1 (progn (nth 4 cl-x))) nil] 9 (#$ . 8559)]) (put 'mm-uu-function-1 'compiler-macro 'mm-uu-function-1--cmacro) #@67 Access slot "function-1" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-function-1 #[257 "\3008\207" [4] 3 (#$ . 8878)]) (byte-code "\300\301\302\303#\300\207" [function-put mm-uu-function-1 side-effect-free t] 4) #@73 compiler-macro for inlining `mm-uu-function-2'. (fn CL-WHOLE-ARG CL-X) (defalias 'mm-uu-function-2--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mm-uu-function-2 (progn (nth 5 cl-x))) nil] 9 (#$ . 9110)]) (put 'mm-uu-function-2 'compiler-macro 'mm-uu-function-2--cmacro) #@67 Access slot "function-2" of `mm-uu-entry' struct CL-X. (fn CL-X) (defalias 'mm-uu-function-2 #[257 "\3008\207" [5] 3 (#$ . 9429)]) (byte-code "\300\301\302\303#\304\305\306\"\210\307\310\311\211\312\311\313\314\310\311& \210\315\316\317\320\321DD\322\323\324\325\326\327\330& \210\331\332\333\334\325\326\327\330&\207" [function-put mm-uu-function-2 side-effect-free t defalias copy-mm-uu-entry copy-sequence cl-struct-define mm-uu-entry nil list ((type) (beginning-regexp) (end-regexp) (function-extract) (function-1) (function-2)) cl-struct-mm-uu-entry-tags custom-declare-variable mm-uu-hide-markers funcall function #[0 "\300\301 GW\207" [16 defined-colors] 2] "If non-nil, hide verbatim markers.\nThe value should be nil on displays where the face\n`mm-uu-extract' isn't distinguishable to the face `default'." :type (choice (const :tag "Hide" t) (const :tag "Don't hide" nil)) :version "23.1" :group gnus-article-mime custom-declare-face mm-uu-extract ((((type tty) (class color) (background dark)) (:background "dark blue")) (((class color) (background dark)) (:foreground "light yellow" :background "dark green")) (((type tty) (class color) (background light)) (:foreground "dark blue")) (((class color) (background light)) (:foreground "dark green" :background "light yellow")) (t nil)) "Face for extracted buffers."] 11) #@278 Copy the contents of the current buffer to a fresh buffer. Return that buffer. If PROPERTIES is non-nil, PROPERTIES are applied to the buffer, see `set-text-properties'. If PROPERTIES equals t, this means to apply the face `mm-uu-extract'. (fn &optional FROM TO PROPERTIES) (defalias 'mm-uu-copy-to-buffer #[768 "p r\302\303!q\210\203 \304 \210\202 \305 \210\211\306#\210\307=\203/ \310ed\311#\210\202: \203: \310ed#\210p)\207" [enable-multibyte-characters buffer-file-coding-system generate-new-buffer " *mm-uu*" mm-enable-multibyte mm-disable-multibyte insert-buffer-substring t set-text-properties (face mm-uu-extract)] 10 (#$ . 10770)]) #@16 (fn KEY VAL) (defalias 'mm-uu-configure-p #[514 "B\235\207" [mm-uu-configure-list] 4 (#$ . 11434)]) #@75 Configure detection of non-MIME attachments. (fn &optional SYMBOL VALUE) (defalias 'mm-uu-configure #[512 "\203 \302\"\210\303\301\304\305\306\307\"\"\310#\211\207" [mm-uu-type-alist mm-uu-beginning-regexp set-default mapconcat delq nil mapcar #[257 "\300@\301\"?\205\n \211\207" [mm-uu-configure-p disabled] 4 "\n\n(fn ENTRY)"] "\\|"] 9 (#$ . 11545) nil]) (mm-uu-configure) (defalias 'mm-uu-uu-filename #[0 "\302\303!\205 \304\305\306\307!!)\211\207" [nnheader-file-name-translation-alist file-name looking-at ".+" ((47 . 44) (32 . 95) (42 . 95) (36 . 95)) nnheader-translate-file-chars match-string 0] 3]) (defalias 'mm-uu-binhex-filename #[0 "\3031 \304 \305#0\202 \210\306\211\207" [start-point end-point file-name (error) binhex-decode-region t nil] 4]) (defalias 'mm-uu-yenc-filename #[0 "b\210\3021 \303 0\202 \210\304\211\207" [start-point file-name (error) yenc-extract-filename nil] 2]) (defalias 'mm-uu-forward-test #[0 "\212b\210\301y\210\302\303!)\207" [start-point nil looking-at "[ \n]*[a-zA-Z][a-zA-Z0-9-]*:"] 2]) (defalias 'mm-uu-postscript-extract #[0 "\302 \"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("application/postscript") nil] 8]) #@62 (fn START-OFFSET END-OFFSET &optional START-HIDE END-HIDE) (defalias 'mm-uu-verbatim-marks-extract #[1026 "\203 \206 \206 \303\203 \206 \206 \304\305 b\210y\210`\nb\210y\210`\306#\307\310\211\211\211\211\211\257\207" [mm-uu-hide-markers start-point end-point 1 -1 mm-uu-copy-to-buffer t ("text/x-verbatim" (charset . gnus-decoded)) nil] 14 (#$ . 12769)]) (defalias 'mm-uu-latex-extract #[0 "\302 \303#\304\305\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer t ("text/x-verbatim" (charset . gnus-decoded)) nil] 8]) (defalias 'mm-uu-emacs-sources-extract #[0 "\304 \"\305\306\211\n\307BD\306\211\211\257\207" [start-point end-point mm-dissect-disposition file-name mm-uu-copy-to-buffer ("application/emacs-lisp" (charset . gnus-decoded)) nil filename] 8]) (defalias 'mm-uu-org-src-code-block-extract #[0 "\302 \"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("text/x-org" (charset . gnus-decoded)) nil] 8]) (defalias 'mm-uu-emacs-sources-test #[0 "\303\304! \205 \n\205 \305\n \"\207" [file-name gnus-newsgroup-name mm-uu-emacs-sources-regexp match-string 1 string-match] 3]) (defalias 'mm-uu-diff-extract #[0 "\302 \"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("text/x-patch" (charset . gnus-decoded)) nil] 8]) (defalias 'mm-uu-diff-test #[0 "\205\f \205\f \302 \"\207" [gnus-newsgroup-name mm-uu-diff-groups-regexp string-match] 3]) (defalias 'mm-uu-latex-test #[0 "\205\f \205\f \302 \"\207" [gnus-newsgroup-name mm-uu-tex-groups-regexp string-match] 3]) (defalias 'mm-uu-forward-extract #[0 "\302b\210\303y\210\304\303w\210` b\210\305y\210`\"\306\303\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer nil "\n" -1 ("message/rfc822" (charset . gnus-decoded))] 8]) (defalias 'mm-uu-uu-extract #[0 "\304 \"\n\203 \305\306\n\"\203 \307\310\311\n\"!\206 \312C\313\314\n\205, \n\315\232?\205, \316\nBD\314\211\211\257\207" [start-point end-point file-name mm-dissect-disposition mm-uu-copy-to-buffer string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 "application/octet-stream" x-uuencode nil "" filename] 8]) (defalias 'mm-uu-binhex-extract #[0 "\304 \"\n\203 \305\306\n\"\203 \307\310\311\n\"!\206 \312C\313\314\n\205, \n\315\232?\205, \316\nBD\314\211\211\257\207" [start-point end-point file-name mm-dissect-disposition mm-uu-copy-to-buffer string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 "application/octet-stream" x-binhex nil "" filename] 8]) (defalias 'mm-uu-yenc-extract #[0 "rq\210\305 \n\")\203 \306\307\"\203 \310\311\312\"!\206 \313C\314\315\2051 \316\232?\2051 \f\317BD\315\211\211\257\207" [gnus-original-article-buffer start-point end-point file-name mm-dissect-disposition mm-uu-copy-to-buffer string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 "application/octet-stream" x-yenc nil "" filename] 8]) (defalias 'mm-uu-shar-extract #[0 "\302 \"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("application/x-shar") nil] 8]) (defalias 'mm-uu-gnatsweb-extract #[0 "\214b\210\302y\210` }\210\303\304!)\207" [start-point end-point nil mm-dissect-buffer t] 2]) #@16 (fn &rest _) (defalias 'mm-uu-pgp-signed-test #[128 "\205 \303 \2368\205 \n\304\267\202 \305\207\306\207\306\207\307\310!\311\312!\210\207" [mml2015-use mml2015-function-alist mm-verify-option 5 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (never 18 always 20 known 22)) nil t y-or-n-p "Verify pgp signed part? " message ""] 4 (#$ . 16015)]) #@20 (fn HANDLES CTL) (defalias 'mm-uu-pgp-signed-extract-1 #[514 "\306ed\"r\211q\210\307 \203/ \310 \210\206 \206 \311\206\"