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



(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-links) (lynx mm-inline-render-with-stdin nil "lynx" "-dump" "-force_html" "-stdin" "-nolist") (html2text mm-inline-render-with-function html2text)) (#$ . 560))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable mm-fill-flowed funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, format=flowed articles will be displayed flowed." :type boolean :version "22.1" :group mime-display] 10)
#@68 If non-nil, do font locking of inline media types that support it.
(defvar mm-inline-font-lock t (#$ . 1269))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\315\316\"\207" [custom-declare-variable mm-inline-large-images-proportion funcall function #[0 "\300\207" [0.9] 1 ""] "Maximum proportion large images can occupy in the buffer.\nThis is only used if `mm-inline-large-images' is set to\n`resize'." :type float :version "24.1" :group mime-display autoload gnus-rescale-image "gnus-util"] 10)
#@15 

(fn HANDLE)
(defalias 'mm-inline-image #[257 "\303 \304\305\306!	\307=\2031\310
\311\312p!!\313\n\3148@Z_!\313\n\3158A@Z_!B\262
\"\2022\211\262
\"\210\316c\210\315\233\317\320\"\240)\207" [inhibit-read-only mm-inline-large-images mm-inline-large-images-proportion point-marker t put-image mm-get-image resize gnus-rescale-image window-inside-pixel-edges get-buffer-window truncate 2 3 "\n" make-closure #[0 "\302\303\300\211\"\210\300\211T|)\207" [V0 inhibit-read-only t remove-images] 3]] 12 (#$ . 1797)])
#@60 Whether gnus-article-mode has been setup to use emacs-w3m.
(defvar mm-w3m-setup nil (#$ . 2324))
#@43 Setup gnus-article-mode to use emacs-w3m.
(defalias 'mm-setup-w3m #[0 "\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 (#$ . 2427)])
#@19 

(fn URL HANDLE)
(defalias 'mm-w3m-cid-retrieve-1 #[514 "\211\211\205b\211@\211:\203[\3008\232\2030\301
!\210\302\303\211@;\203(\211@\262
\202.\211A@@\262
\"\210\211@;\203[\211\304
\211@;\203F\211@\262
\202L\211A@@\262
\305\"@\262
\306\232\203[\307\"\210
A\266\202\202
\207" [7 mm-insert-part throw found-handle split-string "/" "multipart" mm-w3m-cid-retrieve-1] 8 (#$ . 2734)])
#@81 Insert a content pointed by URL if it has the cid: scheme.

(fn URL &rest ARGS)
(defalias 'mm-w3m-cid-retrieve #[385 "\302\303\"\205(\3042\305\306\307\225\310O\311Q\211\262rq\210	)\"0\206(\312\313\"\210\310\207" [w3m-current-buffer gnus-article-mime-handles string-match "\\`cid:" found-handle mm-w3m-cid-retrieve-1 "<" 0 nil ">" message "Failed to find \"Content-ID: %s\""] 7 (#$ . 3136)])
#@55 Render a text/html part using emacs-w3m.

(fn HANDLE)
(defalias 'mm-inline-text-html-render-with-w3m #[257 "\306 \210\307
!`\310A@\311\"\206\212\211\203\312\"\202c\210\214
`}\210\211\204>eb\210\313 \211\262\203>ed|\210\312\"c\210	\314\315ed\314$\210*\316ed\317\320$\210\f\203\303\321\305!\203\303
\203\303\321\322!\203\274\203\274ed\323\324\"\325!\314\326
\"\210W\203\267\203\232\327\324\314$\206\216\262
\316\330$\210\202\255\331\324\314$\206\244\262
\316\330
$\210\211\262?\262\202z\266\202\303\316ed\330
$\210\332\233\333 \334 \335\336#\266\202\240*\207" [mail-parse-charset mm-w3m-safe-url-regexp w3m-force-redisplay w3m-safe-url-regexp mm-inline-text-html-with-w3m-keymap w3m-minor-mode-map mm-setup-w3m mm-get-part mail-content-type-get charset mm-decode-string w3m-detect-meta-charset nil w3m-region put-text-property mm-inline-text-html-with-w3m t boundp w3m-link-map get-text-property w3m-href-anchor copy-keymap set-keymap-parent text-property-any keymap text-property-not-all 3 point-min-marker point-max-marker make-closure #[0 "\303\300\301|)\207" [V0 V1 inhibit-read-only t] 2]] 14 (#$ . 3542)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mm-w3m-standalone-supports-m17n-p funcall function #[0 "\300\207" [undecided] 1 ""] "T means the w3m command supports the m17n feature." :type (choice (const nil) (const t) (other :tag "detect" undecided)) :group mime-display] 8)
#@56 Say whether the w3m command supports the m17n feature.
(defalias 'mm-w3m-standalone-supports-m17n-p #[0 "\303\267\202\n\304\207\305\207\3061N\307\211\310\311\307\"
\312\313\304\"r\211q\210\314\315\"\216\316 \210
c\210\317ed\320\304\211\305\321\322\323\324\325\326\325&
\210eb\210\327\305\304#*\262
*\266\2030\202R\210\202Y\203Y\304\211\207\305\211\207" [mm-w3m-standalone-supports-m17n-p coding-system-for-read coding-system-for-write #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*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte call-process-region "w3m" "-dump" "-T" "text/html" "-I" "iso-2022-jp" "-O" search-forward] 18 (#$ . 5034)])
#@49 Render a text/html part using w3m.

(fn HANDLE)
(defalias 'mm-inline-text-html-render-with-w3m-standalone #[257 "\303 \203r\304
!\305A@\306\"\206\307!\310
\2035\311\310\312#\211\262\2035\211\313=\2045\314\315\316!\"\262\202;\317\262\320\262
\321\322\323\312\"r\211q\210\324\325\"\216\326 \210c\210\327 \210\330\331ed\332\312\211\310\333\334\335\336\337&
\210*\340 *\262
\"\207\341
\310\332\333\334\335&\207" [mail-parse-charset coding-system-for-read coding-system-for-write mm-w3m-standalone-supports-m17n-p mm-get-part mail-content-type-get charset 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*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 21 (#$ . 5924)])
(defalias 'mm-links-remove-leading-blank #[0 "eb\210\300\301\302\303#\205\304\224\304\225|\210\202\207" [re-search-forward "^   " nil t 0] 4])
(make-obsolete 'mm-links-remove-leading-blank nil "28.1")
#@33 

(fn POST-FUNC CMD &rest ARGS)
(defalias 'mm-inline-wash-with-file #[642 "\303\304\305\"!\306\307ed	\310\311%\210)ed|\210\312\216\313\314\310\315\310\316\317\"&\210)\205- )\207" [mm-tmp-directory file coding-system-for-write make-temp-file expand-file-name "mm" binary write-region nil silent #[0 "\301!\207" [file delete-file] 2] apply call-process t mapcar #[257 "\300
\301\"\207" [eval t] 4 "\n\n(fn E)"]] 12 (#$ . 7128)])
(make-obsolete 'mm-inline-wash-with-file nil "28.1")
#@33 

(fn POST-FUNC CMD &rest ARGS)
(defalias 'mm-inline-wash-with-stdin #[642 "\301\302\303ed\304\211\305&\210)\205 \207" [coding-system-for-write binary apply call-process-region t nil] 12 (#$ . 7625)])
#@40 

(fn HANDLE POST-FUNC CMD &rest ARGS)
(defalias 'mm-inline-render-with-file #[899 "\300!\301\302\303\304\"r\211q\210\305\306\"\216\307 \210c\210\310\311$\210\312 *\262
\"\207" [mm-get-part mm-insert-inline generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-file buffer-string] 13 (#$ . 7841)])
(make-obsolete 'mm-inline-render-with-file nil "28.1")
#@15 

(fn HANDLE)
(defalias 'mm-inline-render-with-links #[257 "\303
!\304C\304\305\306\307\310\"r\211q\210\311\312\"\216\313A@\314\"\262c\210\311\315\"\216\316\317\320\"!\240\210\321\322ed\242\304\323%\210)ed|\210\203b\324\n!\325\326\327\330\"\"\210\331\332\304\310\304\333\n\242&\210)\202n\331\332\304\310\304\333\n\242&\210eb\210\334\335\304\310#\203\202\336\224\336\225|\210\202q)\337 *\262
\"\207" [mm-tmp-directory coding-system-for-write process-environment mm-get-part nil mm-insert-inline generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mail-content-type-get charset #[0 "\300\242\205\301\300\242!\205\302\300\242!\207" [V0 file-exists-p delete-file] 2] make-temp-file expand-file-name "mm" binary write-region silent copy-sequence setenv "LANG" format "en-US.%s" call-process "links" "-dump" re-search-forward "^   " 0 buffer-string] 14 (#$ . 8315)])
#@40 

(fn HANDLE POST-FUNC CMD &rest ARGS)
(defalias 'mm-inline-render-with-stdin #[899 "\300!\301\302\303\304\"r\211q\210\305\306\"\216\307 \210c\210\310\311$\210\312 *\262
\"\207" [mm-get-part mm-insert-inline generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte apply mm-inline-wash-with-stdin buffer-string] 13 (#$ . 9271)])
#@31 

(fn HANDLE FUNC &rest ARGS)
(defalias 'mm-inline-render-with-function #[642 "\301!\302A@\303\"\206
\304\305\306\307\"r\211q\210\310\311\"\216\312 \210\203*\313\"\202+c\210\314\"\210\315 *\262
\"\207" [mail-parse-charset mm-get-part mail-content-type-get charset mm-insert-inline generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte mm-decode-string apply buffer-string] 11 (#$ . 9692)])
#@15 

(fn HANDLE)
(defalias 'mm-inline-text-html #[257 "\211@;\203\f\303\304A\"\207\211	\236\305\211\203\211A\262
\204'\306\307!\"\202:\310!\2033
!\202:\311@A#)\207" [mm-text-html-renderer mm-text-html-renderer-alist inhibit-read-only mapcar mm-inline-text-html t mm-insert-inline mm-get-part functionp apply] 7 (#$ . 10182)])
#@15 

(fn HANDLE)
(defalias '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 (#$ . 10529)])
#@15 

(fn HANDLE)
(defalias 'mm-inline-text #[257 "`
\303
\211@;\203\211@\262
\202\211A@@\262
\304\"A@\262
\305A@\306\"\307\211\310=\2041	\310=\203A\214``}\210\311!\210db\210)\202E\312!\210\n\203t
\313\232\203t\314A@\236A\315\232\203t\214`}\210b\210\316\317\320\321A@\236A\322\"\"\210db\210)\214`}\210
\323\235\203\223\324ed\317#\210\3251\222\326ed\"0\210\202\223\210\327\233edU\203\240\330\202\255\331e\307\"\332 \333\334#\266\202\240*\207" [inhibit-read-only mail-parse-charset mm-fill-flowed split-string "/" mail-content-type-get charset t gnus-decoded mm-insert-part mm-display-inline-fontify "plain" format "flowed" fill-flowed nil cl-equalp delsp "yes" ("enriched" "richtext") set-text-properties (error) enriched-decode 3 ignore copy-marker point-max-marker make-closure #[0 "\303\300\301|)\207" [V0 V1 inhibit-read-only t] 2]] 11 (#$ . 10866)])
#@51 Insert TEXT inline from HANDLE.

(fn HANDLE TEXT)
(defalias 'mm-insert-inline #[514 "`
c\210n\204\300c\210\301\233\302\303\"\304 \305\306#\266\202\240\207" ["\n" 3 copy-marker t point-marker make-closure #[0 "\303\300\301|)\207" [V0 V1 inhibit-read-only t] 2]] 10 (#$ . 11751)])
#@15 

(fn HANDLE)
(defalias 'mm-inline-audio #[257 "\300\301!\207" [message "Not implemented"] 3 (#$ . 12043)])
(defalias 'mm-view-message #[0 "\301 \210\302\211\303\304!\210\305 \210\262
)\211\203\306\"\210\307 \210eb\207" [gnus-article-mime-handles mm-enable-multibyte nil run-hooks gnus-article-decode-hook gnus-article-prepare-display mm-merge-handles fundamental-mode] 4])
#@138 Function called by `mm-inline-message' to do client specific setup.
It is called with two parameters -- the MIME handle and the charset.
(defvar mm-inline-message-prepare-function nil (#$ . 12431))
#@164 Insert HANDLE (a message/rfc822 part) into the current buffer.
This function will call `mm-inline-message-prepare-function'
after inserting the part.

(fn HANDLE)
(defalias 'mm-inline-message #[257 "`n\301A@\302\"\211\203 \211;\203 \303
\227!\262
\211\304=\203 \305\262
\212\214\211}\210\306!\210\2033\"\210eb\210
\204=\307c\210db\210n\204G\307c\210\310c\210\311\233\312 \313 \314\315#\266\202\240*\207" [mm-inline-message-prepare-function mail-content-type-get charset intern us-ascii nil mm-insert-part "\n" "----------\n\n" 3 point-min-marker point-max-marker make-closure #[0 "\303\300\301|)\207" [V0 V1 inhibit-read-only t] 2]] 11 (#$ . 12636)])
#@124 Insert HANDLE inline fontifying with MODE.
If MODE is not set, try to find mode automatically.

(fn HANDLE &optional MODE)
(defalias 'mm-display-inline-fontify #[513 "\306A@\307\"\310\211\211\311=\204;\312\313\314\"r\211q\210\315\316\"\216\317 \210\320!\210\321\322!\314\211#\210\2045\323 \262\324 \262*\210\312\313\314\"r\211q\210\315\325\"\216\326 \210\327 \210\314\311=\203br@q\210\324 )\202v\203m\330\"\202v\331\206u\332\"c\210\310\211\333\303!\210\310\322!\3341\315\203\237\335 \315\336\"\216 \210)\210\202\271\337\340\341
\"\342
!\"\333\343!\210\314#\344 \210)1\262)1\345=?\205\3102\205\310\346 0\210\202\323\347\350\"\266*\324 \262\351=\203\347\352\353\354ed\"\"\262\355\310!\210*\210`\214~\210e)Z\356\"\210
\211\205
\211@\357
@A@\\\3608\\p$\210
A\266\202\202\373\207" [untrusted-content enable-local-variables font-lock-verbose font-lock-mode-hook buffer-file-name auto-mode-alist mail-content-type-get charset nil gnus-decoded 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-decompress-buffer mm-handle-filename mm-find-buffer-file-coding-system buffer-string #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] buffer-disable-undo mm-enable-multibyte decode-coding-string mm-decode-string undecided make-local-variable (debug error) current-window-configuration #[0 "\301\300!\207" [V0 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 #[257 "\211\300!\301!E\207" [overlay-start overlay-end] 5 "\n\n(fn OV)"] overlays-in set-buffer-modified-p mm-insert-inline move-overlay 2 major-mode mm-inline-font-lock] 14 (#$ . 13311)])
#@15 

(fn HANDLE)
(defalias 'mm-display-patch-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify diff-mode] 4 (#$ . 15164)])
#@15 

(fn HANDLE)
(defalias 'mm-display-elisp-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify emacs-lisp-mode] 4 (#$ . 15298)])
#@15 

(fn HANDLE)
(defalias 'mm-display-dns-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify dns-mode] 4 (#$ . 15438)])
#@56 Show an Org mode text from HANDLE inline.

(fn HANDLE)
(defalias 'mm-display-org-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify org-mode] 4 (#$ . 15569)])
#@54 Show a shell script from HANDLE inline.

(fn HANDLE)
(defalias 'mm-display-shell-script-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify shell-script-mode] 4 (#$ . 15741)])
#@55 Show JavaScript code from HANDLE inline.

(fn HANDLE)
(defalias 'mm-display-javascript-inline #[257 "\300
\301\"\207" [mm-display-inline-fontify javascript-mode] 4 (#$ . 15929)])
(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

")
#@15 

(fn HANDLE)
(defalias 'mm-view-pkcs7-get-type #[257 "\302\303\304\"r\211q\210\305\306\"\216\307 \210\310!\210\311!\203\312\202+\311	!\203(\313\202+\314\315!*\207" [mm-pkcs7-enveloped-magic mm-pkcs7-signed-magic 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 looking-at enveloped signed error "Could not identify PKCS#7 type"] 5 (#$ . 16455)])
#@30 

(fn HANDLE &optional FROM)
(defalias 'mm-view-pkcs7 #[513 "\300!\211\301\267\202\302\"\207\303!\207\304\305!\207" [mm-view-pkcs7-get-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (enveloped 9 signed 14)) mm-view-pkcs7-decrypt mm-view-pkcs7-verify error "Unknown or unimplemented PKCS#7 type"] 6 (#$ . 16915)])
#@15 

(fn HANDLE)
(defalias 'mm-view-pkcs7-verify #[257 "\303\304=\203{\305\306\307\"r\211q\210\310\311\"\216\312@!\210eb\210\313\314 !\315\316!\317
\"\320\321\"@\322\323\324!	>\204=\325\326\327D\"\210\330H\331\332\333\324!	>\204T\325\326\327	D\"\210\334H\324!	>\204i\325\326\327\nD\"\210\335H#$\266\266\202*\262
c\210\202\254\305\306\307\"r\211q\210\310\336\"\216\337c\210\340\341\342\343#\210\312@!\210\344ed\"\262*\210\211\203\250\211c\210\202\254\312\n!\210\307\207" [mml-smime-use cl-struct-epg-signature-tags smime-details-buffer nil epg generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-buffer-substring base64-decode-string buffer-string epg-make-context CMS epg-verify-string epg-context-result-for verify mm-sec-status gnus-info type-of signal wrong-type-argument epg-signature 1 gnus-details format "%s:%s" 3 2 #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" smime-verify-region] 18 (#$ . 17283)])
(autoload 'epg-decrypt-string "epg")
#@30 

(fn HANDLE &optional FROM)
(defalias 'mm-view-pkcs7-decrypt #[513 "\302@!\210eb\210\303=\203!\304\305 !\306 \210\307\310\311!\"c\266\202K\312c\210\313\314\315\316#\210\317ed	G\320U\203;	@A@\202H\321\322\323	\324\211\211	\242\242&!$\210eb\210\325\326\324\327#\203]\330\331!\210\202Neb\207" [mml-smime-use smime-keys 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"] 13 (#$ . 18434)])
(provide 'mm-view)