Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/mh-e/mh-gnus.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)