HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/mm-view.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\315\"\210\307\317\320\"\210\307\321\322\323\324$\207" [require 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)) (#$ . 864))
(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 of large image resized when\n`mm-inline-large-images' is set to 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 (#$ . 2339))
#@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 (#$ . 2442)])
(defalias 'mm-w3m-cid-retrieve-1 #[(url handle) "\304\211\205c\n@\211:\203[\305	8\232\2032\306	!\210\307\310	\211@;\203+@\202/A@@)\"\210	@;\203[	\311\211@;\203H@\202LA@@)\312\"@)\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] 4])
#@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\225\311O\312Q\211r	q\210\n)\"0\206'\311\313\314\"\210\207" [url 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\""] 5 (#$ . 3130)])
#@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 (#$ . 3529)])
#@52 T means the w3m command supports the m17n feature.
(custom-declare-variable 'mm-w3m-standalone-supports-m17n-p ''undecided '(#$ . 4734) :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=\203\305\207\306=\203\306\207\3071L\310\211\311\312\310\"\313\314!r\fq\210\315\216\316 \210	c\210\317ed\320\305\211\306\321\322\323\324\325\326\325&
\210eb\210\327	\306\305#.0\202P\210\202W\203W\305\211\207\306\211\207" [mm-w3m-standalone-supports-m17n-p str coding-system-for-read coding-system-for-write #1=#:temp-buffer 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 (#$ . 4968)])
#@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 (#$ . 5748)])
(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\311\n!\203'\n!\202.\312\n@\nA#+\207" [handle mm-text-html-renderer func mm-text-html-renderer-alist entry inhibit-read-only mapcar mm-inline-text-html t 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@\202A@@)\307\"A@)\310A@\302\"\311\n\312=\2042
\312=\203B\214``}\210\313!\210db\210)\202F\314!\210 \203v\315\232\203v\316\317A@\"A\320\232\203v\214\f`}\210\fb\210\321\322\316\323A@\"A\324\232\"\210db\210)\214\f`}\210\325\235\203\230\326ed\322#\210\3271\223\330ed\"0\202\227\210\202\230\210\331\233\332\322\333\334\335\336e\311\"\337 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 delsp "yes" ("enriched" "richtext") set-text-properties (error) enriched-decode 3 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 (#$ . 10165)])
(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@\303\"\307\211\211\310=\2045\311\312!r\fq\210\313\216\314 \210\315!\210\316\317!\320\211#\210\2041\321 \322 +\311\312!r
q\210\323\216\320+\324 \210\325 \210\310=\203Yr@q\210\322 )\202p	\203d\326\n	\"\202p\203o\327\n\"\202p\nc\210\330\331!\210\307\211\211,-.\332\333!\210\307\317!/\3341\3120\203\246\335 1\336\216\337p!\2100 \210*\202\267\340\341\3422\"\3432!\"2\344 \210)3\206\3004\345=?\205\306\346 0\202\3225\347\3505\")\210+\322 \351\307!\210+\352\n\"+\207" [handle coding-system text charset #1=#:temp-buffer #2=#: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# buffer-name kill-buffer] 2] buffer-disable-undo mm-enable-multibyte decode-coding-string mm-decode-string require font-lock make-local-variable font-lock-mode-hook (debug error) current-window-configuration #[nil "\301!\207" [#3=#:wconfig set-window-configuration] 2] switch-to-buffer delq rassq doc-view-mode-maybe copy-sequence set-auto-mode fundamental-mode font-lock-ensure message "Error: %S" set-buffer-modified-p mm-insert-inline untrusted-content enable-local-variables font-lock-support-mode font-lock-verbose buffer-file-name mode #3# auto-mode-alist font-lock-mode major-mode #4=#:err] 5 (#$ . 11568)])
(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 (#$ . 13570)])
#@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 (#$ . 13741)])
#@42 Show JavsScript code from HANDLE inline.
(defalias 'mm-display-javascript-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify javascript-mode] 3 (#$ . 13928)])
(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 eql 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) "\304\305\306!r	q\210\307\216\310c\210\311\312\313\314#\210\315\n@!\210\316ed\"+eb\210\317\n!\210\320\321\304\322#\2034e\323\224|\210db\210\324\325\304\322#\203D\323\225d|\210\204L\315!\210)eb\210\320\326\304\322#\203_\327\330!\210\202P\322\207" [verified #1=#:temp-buffer handle smime-details-buffer nil generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] "MIME-Version: 1.0\n" mm-insert-headers "application/pkcs7-mime" "base64" "smime.p7m" insert-buffer-substring smime-verify-region mm-insert-part search-forward "Content-Type: " t 0 re-search-backward "--
?\n?" "
\n" replace-match "\n"] 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)