Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
mh-acros.el	10.99 KB	-rw-r--r--
mh-alias.elc	18.18 KB	-rw-r--r--
mh-buffers.elc	1.6 KB	-rw-r--r--
mh-comp.elc	37.95 KB	-rw-r--r--
mh-compat.elc	11.16 KB	-rw-r--r--
mh-e.elc	115.38 KB	-rw-r--r--
mh-folder.elc	63.95 KB	-rw-r--r--
mh-funcs.elc	12.52 KB	-rw-r--r--
mh-gnus.elc	4.31 KB	-rw-r--r--
mh-identity.elc	8.23 KB	-rw-r--r--
mh-inc.elc	1.93 KB	-rw-r--r--
mh-junk.elc	18.5 KB	-rw-r--r--
mh-letter.elc	28.46 KB	-rw-r--r--
mh-limit.elc	10.22 KB	-rw-r--r--
mh-loaddefs.el	96.35 KB	-rw-r--r--
mh-mime.elc	59.66 KB	-rw-r--r--
mh-print.elc	8.47 KB	-rw-r--r--
mh-scan.elc	18.29 KB	-rw-r--r--
mh-search.elc	58.68 KB	-rw-r--r--
mh-seq.elc	37.52 KB	-rw-r--r--
mh-show.elc	102.1 KB	-rw-r--r--
mh-speed.elc	15.86 KB	-rw-r--r--
mh-thread.elc	64.89 KB	-rw-r--r--
mh-tool-bar.elc	26.55 KB	-rw-r--r--
mh-utils.elc	27.5 KB	-rw-r--r--
mh-xface.elc	13.15 KB	-rw-r--r--

Code Editor : mh-gnus.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\302\303\304\305#\210\302\306\304\305#\210\302\307\304\305#\210\302\310\304\305#\210\302\311\304\305#\210\312\313\314\315!\203.�\315\202/�\316\"\210\312\317\314\320!\203=�\320\202>�\321\"\210\312\322\314\323!\203L�\323\202M�\324\"\210\312\325\314\326!\203[�\326\202\\�\327\"\210\312\330\314\331!\203j�\331\202k�\332\"\210\312\333\334\"\210\312\335\314\336!\203~�\336\202�\337\"\210\312\340\314\341!\203\215�\341\202\216�\342\"\210\312\343\314\344!\203\234�\344\202\235�\345\"\210\312\346\314\347!\203\253�\347\202\254�\350\"\210\312\351\314\352!\203\272�\352\202\273�\353\"\210\312\354\314\355!\203\311�\355\202\312�\356\"\207" [require mh-e mh-require gnus-util nil t mm-bodies mm-decode mm-view mml defalias mh-gnus-local-map-property fboundp gnus-local-map-property #[(map) "\302Y\203\n�\303	D\207\304	D\207" [emacs-major-version map 21 keymap local-map] 2 "Return a list suitable for a text property list specifying keymap MAP."] mh-mm-merge-handles mm-merge-handles #[(handles1 handles2) "\302@<\203�\202
�C	@<\203�	\202�	C\"\207" [handles1 handles2 append] 3] mh-mm-set-handle-multipart-parameter mm-set-handle-multipart-parameter #[(handle parameter value) "\205�\303\304@G	\n@%\207" [handle parameter value put-text-property 0] 6] mh-mm-inline-text-vcard mm-inline-text-vcard #[(handle) "\302\303	\304\3051#�\306\307!\203�\307\310	!!\202�\311\312\310	!\313\"!0\202%�\210\314P\")\207" [inhibit-read-only handle t mm-insert-inline "\n-- \n" (error) fboundp vcard-pretty-print mm-get-part vcard-format-string vcard-parse-string vcard-standard-filter nil] 7] mh-mm-possibly-verify-or-decrypt mm-possibly-verify-or-decrypt #[(_parts _ctl) "\300\207" [nil] 1] mh-mm-handle-multipart-ctl-parameter mm-handle-multipart-ctl-parameter mh-mm-readable-p mm-readable-p #[(handle) "r@q\210\302 )\303W\205*�\304\305!r	q\210\306\216\307 \210\310!\210\311 \312=\205)�\313\314!?+\207" [handle #1=#:temp-buffer buffer-size 10000 generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part mm-body-7-or-8 7bit mh-mm-long-lines-p 76] 2 "Say whether the content of HANDLE is readable."] mh-mm-long-lines-p mm-long-lines-p #[(length) "\212eb\210\301\210m\204�iV\204�\302y\210\301\210\202�iV\205!�i)\207" [length nil 1] 2 "Say whether any of the lines in the buffer is longer than LENGTH."] mh-mm-keep-viewer-alive-p mm-keep-viewer-alive-p #[(_handle) "\300\207" [nil] 1] mh-mm-destroy-parts mm-destroy-parts #[(_list) "\300\207" [nil] 1 "Older versions of Emacs don't have this function."] mh-mm-uu-dissect-text-parts mm-uu-dissect-text-parts #[(_handles) "\300\207" [nil] 1 "Emacs 21 and XEmacs don't have this function."] mh-mml-minibuffer-read-disposition mml-minibuffer-read-disposition #[(type &optional default filename) "\204	�\304	\n\"\305\306\307\"\310\311\312\311\211&\211\313\232\204!�\202\"�)\207" [default type filename disposition mml-content-disposition completing-read format "Disposition (default %s): " (("attachment") ("inline") (#2="")) nil t #2#] 9]] 4)
#@92 Write HANDLE to a file.
PROMPT overrides the default one used to ask user for a file name.
(defalias 'mh-mm-save-part #[(handle &optional prompt) "\306\3078\302\"\206�\306A@\310\"\311\211\203�\312\313\n!\"\314\f\206#�\315
\206)�\311\211\n\2060�\316%\317	!\320	!\203E�\321\322\323	\"!\205K�\324	\"\210	*\207" [handle file filename mm-file-name-rewrite-functions prompt mm-default-directory mail-content-type-get 4 name nil gnus-map-function file-name-nondirectory read-file-name "Save MIME part to: " "" file-name-directory file-exists-p yes-or-no-p format "File %s already exists; overwrite? " mm-save-part-to-file default-directory] 7 (#$ . 3496)])
#@66 Find the renderer Gnus is using to display text/html MIME parts.
(defalias 'mh-mm-text-html-renderer #[nil "\302\300!\203\n�\206�\302\301!\205�	\207" [mm-inline-text-html-renderer mm-text-html-renderer boundp] 2 (#$ . 4165)])
(provide 'mh-gnus)

${this.title}

Code Editor : mh-gnus.elc