;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 #[257 "\301Y\203\n\302
D\207\303
D\207" [emacs-major-version 21 keymap local-map] 3 "Return a list suitable for a text property list specifying keymap MAP.\n\n(fn MAP)"] mh-mm-merge-handles mm-merge-handles #[514 "\300@<\203\202
C@<\203\202C\"\207" [append] 5 "\n\n(fn HANDLES1 HANDLES2)"] mh-mm-set-handle-multipart-parameter mm-set-handle-multipart-parameter #[771 "\205\300\301@G@%\207" [put-text-property 0] 9 "\n\n(fn HANDLE PARAMETER VALUE)"] mh-mm-inline-text-vcard mm-inline-text-vcard #[257 "\301\302
\303\3041$\305\306!\203\306\307!!\202 \310\311\307!\312\"!0\202&\210\313P\")\207" [inhibit-read-only t mm-insert-inline "\n-- \n" (error) fboundp vcard-pretty-print mm-get-part vcard-format-string vcard-parse-string vcard-standard-filter nil] 8 "\n\n(fn HANDLE)"] mh-mm-possibly-verify-or-decrypt mm-possibly-verify-or-decrypt #[514 "\300\207" [nil] 3 "\n\n(fn PARTS CTL)"] mh-mm-handle-multipart-ctl-parameter mm-handle-multipart-ctl-parameter mh-mm-readable-p mm-readable-p #[257 "r\211@q\210\300 )\301W\205/\302\303\304\"r\211q\210\305\306\"\216\307 \210\310!\210\311 \312=\205,\313\314!?*\262
\207" [buffer-size 10000 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part mm-body-7-or-8 7bit mh-mm-long-lines-p 76] 5 "Say whether the content of HANDLE is readable.\n\n(fn HANDLE)"] mh-mm-long-lines-p mm-long-lines-p #[257 "\212eb\210\300\210m\204i
V\204\301y\210\300\210\202i
V\205!i)\207" [nil 1] 3 "Say whether any of the lines in the buffer is longer than LENGTH.\n\n(fn LENGTH)"] mh-mm-keep-viewer-alive-p mm-keep-viewer-alive-p #[257 "\300\207" [nil] 2 "\n\n(fn HANDLE)"] mh-mm-destroy-parts mm-destroy-parts #[257 "\300\207" [nil] 2 "Older versions of Emacs don't have this function.\n\n(fn LIST)"] mh-mm-uu-dissect-text-parts mm-uu-dissect-text-parts #[257 "\300\207" [nil] 2 "Emacs 21 and XEmacs don't have this function.\n\n(fn HANDLES)"] mh-mml-minibuffer-read-disposition mml-minibuffer-read-disposition #[769 "
\204\n\300\"\262\301\302\303\"\304\305\306\305\211&\211\307\232\204\207\207" [mml-content-disposition completing-read format-prompt "Disposition" (("attachment") ("inline") (#1="")) nil t #1#] 11 "\n\n(fn TYPE &optional DEFAULT FILENAME)"]] 4)
#@122 Write HANDLE to a file.
PROMPT overrides the default one used to ask user for a file name.

(fn HANDLE &optional PROMPT)
(defalias 'mh-mm-save-part #[513 "\303\3048\305\"\206\303A@\306\"\307
\203\310\311!\"\262\312\206\"\313	\206'\n\307\211\206/\314%\262
\315
!\316
!\203E\317\320\321\"!\205K\322\"\210\211\207" [mm-file-name-rewrite-functions mm-default-directory default-directory mail-content-type-get 4 filename 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] 10 (#$ . 3212)])
#@66 Find the renderer Gnus is using to display text/html MIME parts.
(defalias 'mh-mm-text-html-renderer #[0 "\302\300!\203\n\206\302\301!\205	\207" [mm-inline-text-html-renderer mm-text-html-renderer boundp] 2 (#$ . 3875)])
(provide 'mh-gnus)