HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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!\2030\314\315\313\"\210\2025\314\315\316\"\210\312\317!\203C\314\320\317\"\210\202H\314\320\321\"\210\312\322!\203V\314\323\322\"\210\202[\314\323\324\"\210\312\325!\203i\314\326\325\"\210\202n\314\326\327\"\210\312\330!\203|\314\331\330\"\210\202\201\314\331\332\"\210\314\333\334\"\210\312\335!\203\224\314\336\335\"\210\202\231\314\336\337\"\210\312\340!\203\247\314\341\340\"\210\202\254\314\341\342\"\210\312\343!\203\272\314\344\343\"\210\202\277\314\344\345\"\210\312\346!\203\315\314\347\346\"\210\202\322\314\347\350\"\210\312\351!\203\340\314\352\351\"\210\202\345\314\352\353\"\210\312\354!\203\363\314\355\354\"\210\202\370\314\355\356\"\210\304\207" [require mh-e mh-require gnus-util nil t mm-bodies mm-decode mm-view mml fboundp gnus-local-map-property defalias mh-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."] mm-merge-handles mh-mm-merge-handles #[(handles1 handles2) "\302@<\203\202
C	@<\203	\202	C\"\207" [handles1 handles2 append] 3] mm-set-handle-multipart-parameter mh-mm-set-handle-multipart-parameter #[(handle parameter value) "\205\303\304@G	\n@%\207" [handle parameter value put-text-property 0] 6] mm-inline-text-vcard mh-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] mm-possibly-verify-or-decrypt mh-mm-possibly-verify-or-decrypt #[(parts ctl) "\300\207" [nil] 1] mh-mm-handle-multipart-ctl-parameter mm-handle-multipart-ctl-parameter mm-readable-p mh-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."] mm-long-lines-p mh-mm-long-lines-p #[(length) "\212eb\210\301\210m\204iV\204\302y\210\301\210\202iV\205!i)\207" [length nil 1] 2 "Say whether any of the lines in the buffer is longer than LENGTH."] mm-keep-viewer-alive-p mh-mm-keep-viewer-alive-p #[(handle) "\300\207" [nil] 1] mm-destroy-parts mh-mm-destroy-parts #[(list) "\300\207" [nil] 1 "Older versions of Emacs don't have this function."] mm-uu-dissect-text-parts mh-mm-uu-dissect-text-parts #[(handles) "\300\207" [nil] 1 "Emacs 21 and XEmacs don't have this function."] mml-minibuffer-read-disposition mh-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 (#$ . 3661)])
#@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 (#$ . 4330)])
(provide 'mh-gnus)