View file File name : mh-gnus.elc Content :;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)