Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:10:54 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mm-uu.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\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\326\327\330\331&\210\322\332\333\334\326\335\330\331&\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 'uudecode-decode-region "*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 'binhex-decode-region "*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" (#$ . 2164))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\311&	\210\300\315\316\317\304\320\306\307\310\311&	\207" [custom-declare-variable mm-uu-emacs-sources-regexp "\\.emacs\\.sources" "The regexp of Emacs sources groups." :version "22.1" :type regexp :group gnus-article-mime mm-uu-diff-groups-regexp "\$gmane\\|gnu\$\\..*\$diff\\|commit\\|cvs\\|bug\\|devel\$" "Regexp matching diff groups." mm-uu-tex-groups-regexp "\\.tex\\>" "*Regexp matching TeX groups." "23.1"] 10)
#@305 A list of specifications for non-MIME attachments.
Each element consist of the following entries: label,
start-regexp, end-regexp, extract-function, test-function.

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 '((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 nil mm-uu-forward-test) (gnatsweb "^----gnatsweb-attachment----" nil 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 nil mm-uu-emacs-sources-test) (diff "^Index: " nil mm-uu-diff-extract nil mm-uu-diff-test) (diff "^=== modified file " nil mm-uu-diff-extract nil mm-uu-diff-test) (git-format-patch "^diff --git " "^-- " mm-uu-diff-extract nil mm-uu-diff-test) (message-marks "^-+[8<>]*-\\{9,\\}[a-z ]+-\\{9,\\}[a-z ]+-\\{9,\\}[8<>]*-+$" "^-+[8<>]*-\\{9,\\}[a-z ]+-\\{9,\\}[a-z ]+-\\{9,\\}[8<>]*-+$" (lambda nil (mm-uu-verbatim-marks-extract 0 0 1 -1)) nil) (insert-marks "^ *\$-\\|_\$\\{30,\\}.*[a-z8<].*\$-\\|_\$\\{30,\\} *$" "^ *\$-\\|_\$\\{30,\\}.*[a-z8<].*\$-\\|_\$\\{30,\\} *$" (lambda nil (mm-uu-verbatim-marks-extract 0 0 1 -1)) nil) (verbatim-marks "^#v\\+" "^#v\\-$" (lambda nil (mm-uu-verbatim-marks-extract 0 0)) nil) (LaTeX "^\$[\\\\%][^\n]+\n\$*\\\\documentclass.*[[{%]" "^\\\\end{document}" mm-uu-latex-extract nil mm-uu-latex-test) (org-src-code-block "^[ 	]*#\\+begin_" "^[ 	]*#\\+end_" mm-uu-org-src-code-block-extract) (org-meta-line "^[ 	]*#\\+[[:alpha:]]+: " "$" mm-uu-org-src-code-block-extract)) (#$ . 2822))
(byte-code "\301\302\303\304\305\306\307\310\311\"\312\313&	\207" [mm-uu-type-alist custom-declare-variable mm-uu-configure-list '((shar . disabled)) "A list of mm-uu configuration.\nTo disable dissecting shar codes, for instance, add\n`(shar . disabled)' to this list." :type alist :options mapcar #[(entry) "@\301D\207" [entry (const disabled)] 2] :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)) (#$ . 5637))
(defalias 'mm-uu-type #[(entry) "@\207" [entry] 1])
(put 'mm-uu-type 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mm-uu-beginning-regexp #[(entry) "A@\207" [entry] 1])
(put 'mm-uu-beginning-regexp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mm-uu-end-regexp #[(entry) "\3018\207" [entry 2] 2])
(put 'mm-uu-end-regexp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mm-uu-function-extract #[(entry) "\3018\207" [entry 3] 2])
(put 'mm-uu-function-extract 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mm-uu-function-1 #[(entry) "\3018\207" [entry 4] 2])
(put 'mm-uu-function-1 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'mm-uu-function-2 #[(entry) "\3018\207" [entry 5] 2])
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315&	\210\316\317\320\321\312\313\314\315&\207" [put mm-uu-function-2 byte-optimizer byte-compile-inline-expand custom-declare-variable mm-uu-hide-markers (< 16 (or (and (fboundp 'defined-colors) (length (defined-colors))) (and (fboundp 'device-color-cells) (device-color-cells)) 0)) "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."] 10)
#@243 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'.
(defalias 'mm-uu-copy-to-buffer #[(&optional from to properties) "p\306\300!\205�\306\301!\205�	r\307\310!q\210\203\"�\311 \210\202%�\312 \210\n\313\f
#\210\314=\203>�\315ed\316#\210\202J�\203J�\315ed#\210p,\207" [enable-multibyte-characters buffer-file-coding-system coding-system multi obuf from boundp generate-new-buffer " *mm-uu*" mm-enable-multibyte mm-disable-multibyte insert-buffer-substring t set-text-properties (face mm-uu-extract) to properties] 4 (#$ . 7594)])
(defalias 'mm-uu-configure-p #[(key val) "	B\n\235\207" [key val mm-uu-configure-list] 2])
#@46 Configure detection of non-MIME attachments.
(defalias 'mm-uu-configure #[(&optional symbol value) "\203	�\304	\"\210\305\306\307\"\207" [symbol value mm-uu-beginning-regexp mm-uu-type-alist set-default nil mapcar #[(entry) "\302\211@)\303\"?\205�	\211\205�\304\211A@)Q\211\207" [entry mm-uu-beginning-regexp mm-uu-configure-p disabled "\\|"] 4]] 3 (#$ . 8425) nil])
(mm-uu-configure)
(defalias 'mm-uu-uu-filename #[nil "\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 #[nil "\301\302\303\217\211\207" [file-name nil (binhex-decode-region start-point end-point t) ((error))] 3])
(defalias 'mm-uu-yenc-filename #[nil "b\210\302\303\304\217\211\207" [start-point file-name nil (yenc-extract-filename) ((error))] 3])
(defalias 'mm-uu-forward-test #[nil "\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 #[nil "\302	\"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("application/postscript") nil] 8])
(defalias 'mm-uu-verbatim-marks-extract #[(start-offset end-offset &optional start-hide end-hide) "\203�	\206
�\n\206
�\306\203�\206�\f\206�\307\f\310
b\210\fy\210`b\210
y\210`\311#\312\313\211\211\211\211\211\257*\207" [mm-uu-hide-markers start-hide start-offset end-hide end-offset end 1 -1 mm-uu-copy-to-buffer t ("text/x-verbatim" (charset . gnus-decoded)) nil start start-point end-point] 8])
(defalias 'mm-uu-latex-extract #[nil "\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 #[nil "\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 #[nil "\302	\"\303\304\211\211\211\211\211\257\207" [start-point end-point mm-uu-copy-to-buffer ("text/x-org") nil] 8])
(defalias 'mm-uu-emacs-sources-test #[nil "\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 #[nil "\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 #[nil "\205\f�	\205\f�\302	\"\207" [gnus-newsgroup-name mm-uu-diff-groups-regexp string-match] 3])
(defalias 'mm-uu-latex-test #[nil "\205\f�	\205\f�\302	\"\207" [gnus-newsgroup-name mm-uu-tex-groups-regexp string-match] 3])
(defalias 'mm-uu-forward-extract #[nil "\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 #[nil "\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 #[nil "\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 #[nil "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 #[nil "\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 #[nil "\214b\210\302y\210`	}\210\303\304!)\207" [start-point end-point nil mm-dissect-buffer t] 2])
(defalias 'mm-uu-pgp-signed-test #[(&rest rest) "\205+�\303	\2368\205+�\n\304=\203�\305\207\n\306=\203�\307\207\n\310=\203$�\307\207\311\312!\313\314!\210\207" [mml2015-use mml2015-function-alist mm-verify-option 5 never nil always t known y-or-n-p "Verify pgp signed part? " message ""] 3])
(defalias 'mm-uu-pgp-signed-extract-1 #[(handles ctl) "\306ed\"rq\210\307 \2031�\310 \210	\206�\n\206�\311	\206#�\n\206#�\311\312
\2368 \210*\202b�
\203_�\312
\2368\204_�\313\314\315
\"\211\205]�\316\317@G@%+\210\320 \210\321\211\211\211\211\211\257*C\207" [buf buffer-file-coding-system gnus-newsgroup-charset coding-system-for-read coding-system-for-write mml2015-use mm-uu-copy-to-buffer mm-uu-pgp-signed-test mml2015-clean-buffer iso-8859-1 5 gnus-details format "Clear verification not supported by `%s'.\n" put-text-property 0 mml2015-extract-cleartext-signature nil mml2015-function-alist mm-security-handle value parameter handle mm-uu-text-plain-type] 9])
(defalias 'mm-uu-pgp-signed-extract #[nil "\306\307!C\211\310\311\211\205�\312\313@G\n	@%+\210\214\f
}\210\314\313@G\315\316 D@$\210\317\320\"\241\210))\207" [mm-security-handle value parameter 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] 7])
(defalias 'mm-uu-pgp-encrypted-test #[(&rest rest) "\205+�\303	\2368\205+�\n\304=\203�\305\207\n\306=\203�\307\207\n\310=\203$�\307\207\311\312!\313\314!\210\207" [mml2015-use mml2015-function-alist mm-decrypt-option 6 never nil always t known y-or-n-p "Decrypt pgp encrypted part? " message ""] 3])
(defalias 'mm-uu-pgp-encrypted-extract-1 #[(handles ctl) "\306ed\"\307\310r\nq\210eb\210\311y\210	\203�\312\313!\202 �\312\314!\310\204�\310f\315>\204/�\316c\210\214e`}\210\317\320!)\321 \203\216�\322 \210\323\f\2368 \210\324\325\326
@#\327\232\203\216�\204^�\211\203|�\330!\211\203|�\331=\204|�\332\333 \334 \210\335 \210\"c\210\202�\335 \210\n \310\211\211\211\211\211\257C\202\231�\n\336\310\211\211\211\211\211\257C,\207" [charset first buf mml2015-use mml2015-function-alist mm-security-handle 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 mm-decode-coding-string buffer-string erase-buffer mm-enable-multibyte ("application/pgp-encrypted") gnus-newsgroup-charset mm-uu-text-plain-type] 8])
(defalias 'mm-uu-pgp-encrypted-extract #[nil "\306\307!C\211\310\311\211\205�\312\313@G\n	@%+\210\214\f
}\210\314\313@G\315\316 D@$\210\317\320\"\241\210))\207" [mm-security-handle value parameter 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] 7])
(defalias 'mm-uu-gpg-key-skip-to-last #[nil "`\3048)\211A@)\n\2037�\305\211@)\306\"\2047�\307\n\310\311#\2037�\312\310w\210\313	!\203�\314\225\202�b+\207" [entry beginning-regexp end-regexp point 2 mm-uu-configure-p disabled re-search-forward nil t " 	\n
" looking-at 0] 5])
(defalias 'mm-uu-pgp-key-extract #[nil "\303	\"\211\304\305\211\211\211\211\211\257)\207" [start-point end-point buf mm-uu-copy-to-buffer ("application/pgp-keys") nil] 9])
#@226 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'.
(defalias 'mm-uu-dissect #[(&optional noheader mime-type) "\306\206�	\307\211\211\211\211\211\211\212eb\210\204:�\310\311!\203/�\307y\210\202:�\312\313\307\306#\204:�db\210`\314\307\306#\203\n\315\224\307\316\315! !\204{�\317!@\211A@) \"\203p�!@\211\202V�!\211A!@\210\202U�*\3208)\211\203\212�\n \210\307y\210\321\211@)\322\"\204=�\3238)\211\"\204\257�d\211\206\273�\306\202\273�\314\"\307\306#\307y\210`)\203=�\3248)\211\203\317�\n \203=�V\203\366�b\210\314\325\306#\203\366�\326\"	\307\211\211\211\211\211\257\fB\3278) \fB\211b\210\202=�\f\203:dTV\2035\212b\210\314\325\307\306#)\2035\326d\"	\307\211\211\211\211\211\257\fB\330\f\237B\f.\n\207" [mime-type mm-uu-text-plain-type func entry result file-name t nil looking-at "\n" search-forward "\n\n" re-search-forward 0 match-string string-match 4 mm-uu-configure-p disabled 2 5 "." mm-uu-copy-to-buffer 3 "multipart/mixed" end-point start-point text-start case-fold-search noheader mm-uu-beginning-regexp mm-uu-type-alist beginning-regexp alist end-regexp] 10 (#$ . 16419)])
#@104 Dissect text parts and put uu handles into HANDLE.
Assume text has been decoded if DECODED is non-nil.
(defalias 'mm-uu-dissect-text-parts #[(handle &optional decoded) "@\211;\203%�A\306\211\205!�@\307\n\f\"\210A\211\204�\306*\202b\310	!\203I\211@;\2038�@\202<�A@@)\311\306\211\211 \211!;\205E\312\313!\"\205E\3148@\315\232\205Er	q\210\f\204v�\316A@\317\"\211\320=\203\202�\311\321\311!\322B\"\202\336�\203\254�\311\323\324!\"r\"q\210\325\216\326 \210\327\330!\"c\210\321\311!\331B\"+\202\336�\3328\211\203\326�\306\323\324!#r#q\210\333\216\334	!\210\335
!\"\210\321\311!C\"+\202\336�\306\321\311!C\")\211\205EG\332X\203\211$A@)\211@;\203@\202A@@)!\230\203\336\211$A@)@!\202E\336	!\210A\241\210@\240\210A\306\211\205D@\307\n\f\"\210A\211\2044\306*-\202b\306\211\205a@\307\n\f\"\210A\211\204Q\306*)\207" [handle buffer elem --dolist-tail-- decoded encoding nil mm-uu-dissect-text-parts bufferp t string-match "\\`text/\\|\\`application/pgp\\'" 4 "inline" mail-content-type-get charset gnus-decoded mm-uu-dissect ((charset . gnus-decoded)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte mm-decode-string mm-get-part ((charset . gnus-decoded)) 2 ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring mm-decode-content-transfer-encoding kill-buffer children case-fold-search type #1# #2# x] 6 (#$ . 17769)])
(provide 'mm-uu)