Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.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--

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\"�	\206\"�\311\312\f
\2368 \210*\202F�\f\203C�\312\f
\2368\204C�\313\314\315\316\f\"\"\210\317 \210\211\320\211\211\211\211\211\257)C\207" [buffer-file-coding-system gnus-newsgroup-charset coding-system-for-read coding-system-for-write mml2015-use mml2015-function-alist mm-uu-copy-to-buffer mm-uu-pgp-signed-test mml2015-clean-buffer iso-8859-1 5 mm-sec-status gnus-details format-message "Clear verification not supported by `%s'.\n" mml2015-extract-cleartext-signature nil mm-uu-text-plain-type] 11 (#$ . 16410)])
(defalias 'mm-uu-pgp-signed-extract #[0 "\303\304!C\211\305\306\205�\307\310@G@%\266\214	\n}\210\311\310@G\312\313 D@$\210\314\315\"\241\210))\207" [mm-security-handle start-point end-point format "multipart/signed" protocol "application/x-gnus-pgp-signature" put-text-property 0 add-text-properties buffer mm-uu-copy-to-buffer mm-uu-pgp-signed-extract-1 nil] 10])
#@16

(fn &rest _)
(defalias 'mm-uu-pgp-encrypted-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-decrypt-option 6 #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 "Decrypt pgp encrypted part? " message ""] 4 (#$ . 17443)])
#@20

(fn HANDLES CTL)
(defalias 'mm-uu-pgp-encrypted-extract-1 #[514 "\305ed\"\306\307rq\210eb\210\310y\210\203�\311\312!\202�\311\313!\307\262\204
�\307f\314>\204-�\315c\210\214e`}\210\316\317!\262)\320 \203\215�\321 \210\322	\2368 \210\323\324\325\n@#\326\232\203\215�\211\204]�\211\262\203|�\327!\211\262\203|�\211\330=\204|�\331\332 \333 \210\334 \210\"c\210\202�\334 \210\f\307\211\211\211\211\211\257C\202\230�\335\307\211\211\211\211\211\257C)\207" [mml2015-use mml2015-function-alist mm-security-handle gnus-newsgroup-charset mm-uu-text-plain-type mm-uu-copy-to-buffer t nil 1 looking-at "[^	\n ]+:" "[^	\n ]+:\\|[	 ]" (10 nil) "\n" mail-fetch-field "charset" mm-uu-pgp-encrypted-test mml2015-clean-buffer 6 get-text-property 0 gnus-info "OK" mm-charset-to-coding-system ascii decode-coding-string buffer-string erase-buffer mm-enable-multibyte ("application/pgp-encrypted")] 13 (#$ . 17846)])
(defalias 'mm-uu-pgp-encrypted-extract #[0 "\303\304!C\211\305\306\205�\307\310@G@%\266\214	\n}\210\311\310@G\312\313 D@$\210\314\315\"\241\210))\207" [mm-security-handle start-point end-point format "multipart/encrypted" protocol "application/x-gnus-pgp-encrypted" put-text-property 0 add-text-properties buffer mm-uu-copy-to-buffer mm-uu-pgp-encrypted-extract-1 nil] 10])
(defalias 'mm-uu-gpg-key-skip-to-last #[0 "`\3018A@\203,�\302@\303\"\204,�\304\305\306#\203,�\307\305w\210\310!\203�\311\225\262\202�b\207" [mm-uu-entry 2 mm-uu-configure-p disabled re-search-forward nil t " 	\n
" looking-at 0] 7])
(defalias 'mm-uu-pgp-key-extract #[0 "\302	\"\211\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("application/pgp-keys") nil] 9])
#@261 Dissect the current buffer and return a list of uu handles.
The optional NOHEADER means there's no header in the buffer.
MIME-TYPE specifies a MIME type and parameters, which defaults to the
value of `mm-uu-text-plain-type'.

(fn &optional NOHEADER MIME-TYPE)
(defalias 'mm-uu-dissect #[512 "\306\206�\307\211\211\211\211\211\212eb\210\2048�\310\311!\203-�\307y\210\2028�\312\313\307\306#\2048�db\210`\262\314\307\306#\203\376�\315\224\307\316\315!	\204l�\317@A@\"\203c�@\211\202O�\211A\262\210\202N�\266\320	8\206u�\321 \210\307y\210\322	@\323\"\204;�\324	8\211\204\223�d\211\206\235�\306\202\235�\314\307\306#\307y\210`\262\203;�\325	8\206\251�\326 \203;�\fV\203\355�b\210\314\327\f\306#\203\355�\330\f\206\305�`Sf\331=\203\336�\fS\206\322�`Sf\331=\203\336�\fS\202\337�\f\"\307\211\211\211\211\211\257B\262\332	8 B\262\211\262b\210\202;�\211\2030b\210\314\327\307\306#\203*\330f\331=\203T\202d\"\307\211\211\211\211\211\257B\262\333\237B\262.\207" [mm-uu-text-plain-type mm-uu-entry file-name end-point start-point case-fold-search t nil looking-at "\n" search-forward "\n\n" re-search-forward 0 match-string string-match 4 ignore mm-uu-configure-p disabled 2 5 #[0 "\300\207" [t] 1] "." mm-uu-copy-to-buffer 10 3 "multipart/mixed" mm-uu-beginning-regexp mm-uu-type-alist] 18 (#$ . 19566)])
#@135 Dissect text parts and put uu handles into HANDLE.
Assume text has been decoded if DECODED is non-nil.

(fn HANDLE &optional DECODED)
(defalias 'mm-uu-dissect-text-parts #[513 "@\211;\203 �A\211\205�\211@\301\"\210A\266\202\202	�\262\202m\302!\203X\211@;\2034�\211@\262\202:�\211A@@\262\303\304\211\211;\205R\305\306\"\205R\305\307\"?\205R\3108@\311\232\205Rrq\210\204x�\312A@\313\"\211\262\314=\203\205�\303\262\315\303\316B\"\202\370�\203\270�\303\262\317\320!r\211q\210\321\322\323\324\325!\326\"\327$\216\330 \210\331\332\n!\"c\210\315\303\333B\"*\262\202\370�\3278\211\262\203\357�\304\262\317\320!r\211q\210\321\322\323\324\325!\334\"\327$\216\335!\210\336\"\210\315\303C\"*\262\202\370�\304\262\315\303C\")\211\262\205RG\327X\203*A@\211@;\203\211@\262\202\211A@@\262\230\203*\337A@@!\202R\337!\210A\241\210@\240\210A\211\205P\211@\301\n\"\210A\266\202\202=\262)\266\205\202m\211\205k\211@\301\"\210A\266\202\202Y\262\207" [case-fold-search mm-uu-dissect-text-parts bufferp t nil string-match "\\`text/\\|\\`application/pgp\\'" "/x-\$?:diff\\|patch\$\\'" 4 "inline" mail-content-type-get charset gnus-decoded mm-uu-dissect ((charset . gnus-decoded)) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte mm-decode-string mm-get-part ((charset . gnus-decoded)) [buffer-name kill-buffer] insert-buffer-substring mm-decode-content-transfer-encoding kill-buffer] 15 (#$ . 20929)])
(provide 'mm-uu)

${this.title}

Code Editor : mm-uu.elc