Current File : //kunden/usr/share/emacs/27.2/lisp/gnus/mm-view.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\310\317\316\"\210\310\320\321\"\210\310\322\323\324\325$\207" [require cl-lib mail-parse mailcap mm-bodies mm-decode smime mml-smime autoload gnus-completing-read "gnus-util" gnus-article-prepare-display "gnus-art" vcard-parse-string "vcard" vcard-format-string fill-flowed "flow-fill" html2text "html2text" nil t] 5)
#@49 The attributes of renderer types for text/html.
(defvar mm-text-html-renderer-alist '((shr . mm-shr) (w3m . mm-inline-text-html-render-with-w3m) (w3m-standalone . mm-inline-text-html-render-with-w3m-standalone) (gnus-w3m . gnus-article-html) (links mm-inline-render-with-file mm-links-remove-leading-blank "links" "-dump" file) (lynx mm-inline-render-with-stdin nil "lynx" "-dump" "-force_html" "-stdin" "-nolist") (html2text mm-inline-render-with-function html2text)) (#$ . 884))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\315\306\316\310\311&	\210\317\320\321\"\207" [custom-declare-variable mm-fill-flowed t "If non-nil a format=flowed article will be displayed flowed." :type boolean :version "22.1" :group mime-display mm-inline-large-images-proportion 0.9 "Maximum proportion large images can occupy in the buffer.\nThis is only used if `mm-inline-large-images' is set to\n`resize'." float "24.1" autoload gnus-rescale-image "gnus-util"] 10)
(defalias 'mm-inline-image #[(handle) "\306 \307\310\311\n!\f\312=\2035\313\314\315p!!\316\317
8
@Z_!\316\320
8
A@Z_!)B\"\2026)	\"\210\321c\210\320\n\233\322\323\324\301	D\325B\326BBE\240*\207" [inhibit-read-only b handle image mm-inline-large-images edges point-marker t put-image mm-get-image resize gnus-rescale-image window-inside-pixel-edges get-buffer-window truncate 2 3 "\n" lambda nil let ((inhibit-read-only t)) ((remove-images b b) (delete-region b (1+ b))) mm-inline-large-images-proportion] 8])
#@60 Whether gnus-article-mode has been setup to use emacs-w3m.
(defvar mm-w3m-setup nil (#$ . 2394))
#@43 Setup gnus-article-mode to use emacs-w3m.
(defalias 'mm-setup-w3m #[nil "\204\304\305!\210\306	\236\204\306\307B	B\310\n?\211\207" [mm-w3m-setup w3m-cid-retrieve-function-alist mm-html-inhibit-images w3m-display-inline-images require w3m gnus-article-mode mm-w3m-cid-retrieve t] 2 (#$ . 2497)])
(defalias 'mm-w3m-cid-retrieve-1 #[(url handle) "\304\211\205g\n@\211:\203_\305	8\232\2034\306	!\210\307\310	\211@;\203,\211@\262
\2022\211A@@\262
\"\210	@;\203_	\311
\211@;\203J\211@\262
\202P\211A@@\262
\312\"@\262
\313\232\203_\314	\"\210\nA\211\204\304*\207" [handle elem --dolist-tail-- url nil 7 mm-insert-part throw found-handle split-string "/" "multipart" mm-w3m-cid-retrieve-1] 5])
#@60 Insert a content pointed by URL if it has the cid: scheme.
(defalias 'mm-w3m-cid-retrieve #[(url &rest args) "\303\304\"\205'\3052\306\307\310\311\225\"\312Q\211r	q\210\n)\"0\206'\313\314\315\"\210\207" [url w3m-current-buffer gnus-article-mime-handles string-match "\\`cid:" found-handle mm-w3m-cid-retrieve-1 "<" substring 0 ">" nil message "Failed to find \"Content-ID: %s\""] 5 (#$ . 3216)])
#@42 Render a text/html part using emacs-w3m.
(defalias 'mm-inline-text-html-render-with-w3m #[(handle) "\306 \210\307!`\310A@\302\"\206	\212\n\203 \311\f\n\"\202!\fc\210\214`}\210\n\204@eb\210\312 \211\203@ed|\210\311\f\n\"c\210
\313!\"\314ed\313\n$\210*\315ed\316\317$\210#\203\347\320\321!\203\347\203\347\320\322!\203\337\203\337e$d%\323$\324\"&\325!'\313(\326'\"\210$%W\203\333&\203\266\327$%\324\313$\206\247%(\315$(\330'$\210\202\317\331$%\324\313$\206\303%(\315$(\330$\210($&?&\202\215-\202\347\315ed\330$\210\332\233\333\313\334\335\336\337 \340 EEE\240-\207" [handle mail-parse-charset charset b text mm-w3m-safe-url-regexp mm-setup-w3m mm-get-part mail-content-type-get mm-decode-string w3m-detect-meta-charset nil w3m-region put-text-property mm-inline-text-html-with-w3m t boundp w3m-minor-mode-map w3m-link-map get-text-property w3m-href-anchor copy-keymap set-keymap-parent text-property-any keymap text-property-not-all 3 lambda let ((inhibit-read-only t)) delete-region point-min-marker point-max-marker w3m-force-redisplay w3m-safe-url-regexp mm-inline-text-html-with-w3m-keymap start end on map next] 8 (#$ . 3626)])
#@52 T means the w3m command supports the m17n feature.
(custom-declare-variable 'mm-w3m-standalone-supports-m17n-p ''undecided '(#$ . 4831) :type '(choice (const nil) (const t) (other :tag "detect" undecided)) :group 'mime-display)
#@56 Say whether the w3m command supports the m17n feature.
(defalias 'mm-w3m-standalone-supports-m17n-p #[nil "\305\267\202\n\306\207\307\207\3101F\311\211\312\313\311\"\314\315!r\fq\210\316\216\317 \210	c\210\320ed\321\306\211\307\322\323\324\325\326\327\326&
\210eb\210\330	\307\306#.0\202J\210\202Q\203Q\306\211\207\307\211\207" [mm-w3m-standalone-supports-m17n-p str coding-system-for-read coding-system-for-write #1=#:temp-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 6 nil 8)) t nil (error) iso-2022-jp decode-coding-string "$B#D#o#e#s!!#w#3#m!!#s#u#p#p#o#r#t!!#m#1#7#n!)(B" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte call-process-region "w3m" "-dump" "-T" "text/html" "-I" "iso-2022-jp" "-O" search-forward] 14 (#$ . 5065)])
#@36 Render a text/html part using w3m.
(defalias 'mm-inline-text-html-render-with-w3m-standalone #[(handle) "\306 \203m\307!\310A@\303\"\206\311	!\312\2036\313\312\314#\211\2036\n\315=\2046\316\317\320\n!\"\202:\321\322\323\324\325!r
q\210\326\216\327 \210\fc\210\330 \210\331\n#$\332ed\333\314\211\312\334\335\336\337\340&
\210*\341 +\"+\207\342\312\333\334\335\336&\207" [handle mail-parse-charset cs charset source #1=#:temp-buffer mm-w3m-standalone-supports-m17n-p mm-get-part mail-content-type-get symbol-name nil mm-charset-to-coding-system t ascii format "%s" mm-coding-system-to-mime-charset "iso-8859-1" iso-8859-1 mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-enable-multibyte binary call-process-region "w3m" "-dump" "-T" "text/html" "-I" "-O" buffer-string mm-inline-render-with-stdin coding-system-for-read coding-system-for-write] 16 (#$ . 5935)])
(defalias 'mm-links-remove-leading-blank #[nil "eb\210\300\301\302\303#\205\304\224\304\225|\210\202\207" [re-search-forward "^   " nil t 0] 4])
(defalias 'mm-inline-wash-with-file #[(post-func cmd &rest args) "\306\307\310\"!\311\312ed	\313\314%\210)ed|\210\315\216\316\317\313\320\313\321\322\f\"&\210)
\205,
 )\207" [mm-tmp-directory file coding-system-for-write cmd args post-func make-temp-file expand-file-name "mm" binary write-region nil silent #[nil "\301!\207" [file delete-file] 2] apply call-process t mapcar eval] 9])
(defalias 'mm-inline-wash-with-stdin #[(post-func cmd &rest args) "\304\305\306ed	\307\211\310\n&\210)\205 \207" [coding-system-for-write cmd args post-func binary apply call-process-region t nil] 9])
(defalias 'mm-inline-render-with-file #[(handle post-func cmd &rest args) "\306!\307\310\311!r\nq\210\312\216\313 \210	c\210\314\315\f
$\210\316 +\")\207" [handle source #1=#:temp-buffer post-func cmd args mm-get-part mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-file buffer-string] 7])
(defalias 'mm-inline-render-with-stdin #[(handle post-func cmd &rest args) "\306!\307\310\311!r\nq\210\312\216\313 \210	c\210\314\315\f
$\210\316 +\")\207" [handle source #1=#:temp-buffer post-func cmd args mm-get-part mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-stdin buffer-string] 7])
(defalias 'mm-inline-render-with-function #[(handle func &rest args) "\306!\307A@\302\"\206
	\310\311\312!r\fq\210\313\216\314 \210\n\203)\315\n\"\202*c\210\316
\"\210\317 +\"*\207" [handle mail-parse-charset charset source #1=#:temp-buffer func mm-get-part mail-content-type-get mm-insert-inline generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte mm-decode-string apply buffer-string args] 5])
(defalias 'mm-inline-text-html #[(handle) "@;\203\f\306\307A\"\207	\211\236\310\f\203\fA\n\204(\311\312!\"\202;\313\n!\2034\n!\202;\314\n@\nA#+\207" [handle mm-text-html-renderer func mm-text-html-renderer-alist entry inhibit-read-only mapcar mm-inline-text-html t mm-insert-inline mm-get-part functionp apply] 5])
(defalias '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])
(defalias 'mm-inline-text #[(handle) "`\306
\211@;\203\211@\262
\202\211A@@\262
\307\"A@\262
\310A@\302\"\311\n\312=\2044
\312=\203D\214``}\210\313!\210db\210)\202H\314!\210\"\203y\315\232\203y\316\317A@\"A\320\232\203y\214\f`}\210\fb\210\321\322\323\316\324A@\"A\325\"\"\210db\210)\214\f`}\210\326\235\203\233\327ed\322#\210\3301\226\331ed\"0\202\232\210\202\233\210\332\233edU\203\250\333\202\266\334\322\335\336\337\340e\311\"\341 EEE\240-\207" [handle inhibit-read-only charset type b mail-parse-charset split-string "/" mail-content-type-get t gnus-decoded mm-insert-part mm-display-inline-fontify "plain" assoc format "flowed" fill-flowed nil cl-equalp delsp "yes" ("enriched" "richtext") set-text-properties (error) enriched-decode 3 ignore lambda let ((inhibit-read-only t)) delete-region copy-marker point-max-marker mm-fill-flowed] 9])
#@33 Insert TEXT inline from HANDLE.
(defalias 'mm-insert-inline #[(handle text) "`	c\210n\204\f\303c\210\304\n\233\305\306\307\310\311\312\313\"\314 EEE\240)\207" [b text handle "\n" 3 lambda nil let ((inhibit-read-only t)) delete-region copy-marker t point-marker] 9 (#$ . 10470)])
(defalias 'mm-inline-audio #[(handle) "\300\301!\207" [message "Not implemented"] 2])
(defalias 'mm-view-message #[nil "\302 \210\303\211\304\305!\210\306 \210	)\203\307	\")\310 \210eb\207" [handles gnus-article-mime-handles mm-enable-multibyte nil run-hooks gnus-article-decode-hook gnus-article-prepare-display mm-merge-handles fundamental-mode] 4])
(defalias 'mm-inline-message #[(handle) "`n\306A@\303\"\307\211\203%;\203%\310\227!\211\311=\203%\307\212\214
\211}\210\312!\210\307\211\313=?\205>\206>@\314\315!\210)\316 \210+eb\210\f\204^\317c\210db\210n\204h\317c\210\320c\210	\203v\321	\"\322\233\323\307\324\325\326\327 \330 EEE\240.\207" [handle handles gnus-displaying-mime charset bolp b mail-content-type-get nil intern us-ascii mm-insert-part gnus-decoded run-hooks gnus-article-decode-hook gnus-article-prepare-display "\n" "----------\n\n" mm-merge-handles 3 lambda let ((inhibit-read-only t)) delete-region point-min-marker point-max-marker gnus-newsgroup-charset gnus-article-prepare-hook gnus-article-mime-handles gnus-original-article-buffer] 9])
#@96 Insert HANDLE inline fontifying with MODE.
If MODE is not set, try to find mode automatically.
(defalias 'mm-display-inline-fontify #[(handle &optional mode) "\306A@\304\"\307\211\211\211\310=\2047\311\312!r
q\210\313\216\314 \210\315!\210\316\317!\320\211#\210\f\2043\321 \322 +\311\312!0r0q\210\323\216\3201\324 \210\325 \210\f\310=\203]r@q\210\322 )\202p\n\203h\326\n\"\202p\327\f\206o\330\"c\210\307\21123\331\332!\210\307\317!4\3331\3065\203\233\334 6\335\2165 \210*\202\270\336\337\3407\"\3417!\"7\331\342!\210\320\"\343 \210)85)8\344=?\205\302\345 0\202\3169\346\3479\")\210*\322 5\350=\203\342\351\352\353ed\"\"\354\307!\210+`\214~\210e)Z:\355\"\210	\307;\211<\205#
<@;\356;@;A@:\\\357;8:\\p$\210<A\211<\204\377\307.\207" [handle ovs coding-system text charset #1=#:temp-buffer mail-content-type-get nil gnus-decoded generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part mm-decompress-buffer mm-handle-filename t mm-find-buffer-file-coding-system buffer-string #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] buffer-disable-undo mm-enable-multibyte decode-coding-string mm-decode-string undecided make-local-variable font-lock-mode-hook (debug error) current-window-configuration #[nil "\301!\207" [#3=#:wconfig set-window-configuration] 2] delq rassq doc-view-mode-maybe copy-sequence delay-mode-hooks set-auto-mode fundamental-mode font-lock-ensure message "Error: %S" diff-mode mapcar #[(ov) "\301!\302!E\207" [ov overlay-start overlay-end] 4] overlays-in set-buffer-modified-p mm-insert-inline move-overlay 2 #2# untrusted-content enable-local-variables font-lock-verbose buffer-file-name mode #3# auto-mode-alist major-mode #4=#:err b ov --dolist-tail--] 6 (#$ . 11873)])
(defalias 'mm-display-patch-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify diff-mode] 3])
(defalias 'mm-display-elisp-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify emacs-lisp-mode] 3])
(defalias 'mm-display-dns-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify dns-mode] 3])
#@43 Show an Org mode text from HANDLE inline.
(defalias 'mm-display-org-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify org-mode] 3 (#$ . 14081)])
#@41 Show a shell script from HANDLE inline.
(defalias 'mm-display-shell-script-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify shell-script-mode] 3 (#$ . 14252)])
#@42 Show JavsScript code from HANDLE inline.
(defalias 'mm-display-javascript-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify javascript-mode] 3 (#$ . 14439)])
(defvar mm-pkcs7-signed-magic "0\\(\\(\200\\)\\|\\(\201\\(.\\|\n\\)\\{1\\}\\)\\|\\(\202\\(.\\|\n\\)\\{2\\}\\)\\|\\(\203\\(.\\|\n\\)\\{3\\}\\)\\)	\\*\206H\206\367

")
(defvar mm-pkcs7-enveloped-magic "0\\(\\(\200\\)\\|\\(\201\\(.\\|\n\\)\\{1\\}\\)\\|\\(\202\\(.\\|\n\\)\\{2\\}\\)\\|\\(\203\\(.\\|\n\\)\\{3\\}\\)\\)	\\*\206H\206\367

")
(defalias 'mm-view-pkcs7-get-type #[(handle) "\304\305!rq\210\306\216\307 \210\310	!\210\311\n!\203\312\202(\311!\203%\313\202(\314\315!+\207" [#1=#:temp-buffer handle mm-pkcs7-enveloped-magic mm-pkcs7-signed-magic generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte mm-insert-part looking-at enveloped signed error "Could not identify PKCS#7 type"] 2])
(defalias 'mm-view-pkcs7 #[(handle &optional from) "\303!\211\304\267\202\305\n\"\202\306!\202\307\310!)\207" [handle #1=#:temp from mm-view-pkcs7-get-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (enveloped 10 signed 17)) mm-view-pkcs7-decrypt mm-view-pkcs7-verify error "Unknown or unimplemented PKCS#7 type"] 4])
(defalias 'mm-view-pkcs7-verify #[(handle) "\306	\307=\203+\310\311!r\nq\210\312\216\313@!\210eb\210\314\315 !\316\317\320!\f\",c\210\202X\310\311!r
q\210\321\216\322c\210\323\324\325\326#\210\313@!\210\327ed\"+\203Sc\210\202X\313!\210)\330\207" [verified mml-smime-use #1=#:temp-buffer handle part #2=#:temp-buffer nil epg generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring base64-decode-string buffer-string epg-verify-string epg-make-context CMS #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" smime-verify-region t smime-details-buffer] 4])
(autoload 'epg-decrypt-string "epg")
(defalias 'mm-view-pkcs7-decrypt #[(handle &optional from) "\305@!\210eb\210	\306=\203\"\307\310 !\311 \210\312\313\314!\n\"c\210)\202L\315c\210\316\317\320\321#\210\322edG\323U\203<@A@\202I\324\325\326\327\211\211\242\242&!\f$\210eb\210\330\331\327\332#\203^\333\334!\210\202Oeb\207" [handle mml-smime-use part smime-keys from insert-buffer-substring epg base64-decode-string buffer-string erase-buffer epg-decrypt-string epg-make-context CMS "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" smime-decrypt-region 1 smime-get-key-by-email gnus-completing-read "Decipher using key" nil search-forward "
\n" t replace-match "\n"] 11])
(provide 'mm-view)