;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\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."] 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)