| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/mm-view.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:16 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/mm-view.el ;;; in Emacs version 24.3.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!\204 \302\301\303\304B\"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\305\313!\210\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\314\323\324\"\210\314\325\324\"\210\314\326\327\"\210\314\330\331\332\333$\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] require mail-parse mailcap mm-bodies mm-decode smime mml-smime autoload gnus-completing-read "gnus-util" gnus-window-inside-pixel-edges "gnus-ems" 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) (w3 . mm-inline-text-html-render-with-w3) (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)) (#$ . 1181)) (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-emacs #[(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 gnus-window-inside-pixel-edges get-buffer-window truncate 2 3 "\n\n" lambda nil let ((inhibit-read-only t)) ((remove-images b b) (delete-region b (+ b 2))) mm-inline-large-images-proportion] 8]) (defalias 'mm-inline-image-xemacs #[(handle) "\300\207" [nil] 1]) (defalias 'mm-inline-image 'mm-inline-image-emacs) (defvar mm-w3-setup nil) (defalias 'mm-setup-w3 #[nil "?\205 \301\302!\210\303 \210\301\304!\210\301\305!\210\301\306!\210\307\211\207" [mm-w3-setup require w3 w3-do-setup url w3-vars url-vars t] 2]) (defalias 'mm-inline-text-html-render-with-w3 #[(handle) "\306 \210\307!`\310\211\311\312\313\314\3158\"!\316 \317A@\301\" * + ,\212 \2032 \320, \"\2024 ,c\210\214+`}\210 \204\207 eb\210\321\322!\203R \323\311\310#\204a \321\324!\203\207 \323\311\310#\203\207 \325\326\224\326\225\" -\327\330!\203v \330-!\202z \331-!)ed|\210\320, \"c\210\332 .\333\216\214\n/ / 01\204\237 2\203\247 \334ed\"\210\202\254 \311\335\336\217\210-\337\233\340\311\341\342\343\344\345!\205\274 \346\347\350 \351 EC\"BBE\240.\n\207" [handle charset width url-current-object w3-honor-stylesheets url-gateway-unplugged mm-setup-w3 mm-get-part t nil url-generic-parse-url format "cid:%s" 7 window-width mail-content-type-get mm-decode-string boundp w3-meta-content-type-charset-regexp re-search-forward w3-meta-charset-content-type-regexp buffer-substring-no-properties 2 fboundp w3-coding-system-for-mime-charset mm-charset-to-coding-system current-window-configuration ((set-window-configuration #1=#:wconfig)) w3-region (byte-code "\300ed\"\207" [w3-region] 3) ((error (byte-code "ed|\210`\304A@\301\" \305=\204 \305=\203) \214``}\210\306!\210db\210)\2021 \307\310! \"c\210*\311\312!\207" [handle charset b mail-parse-charset mail-content-type-get gnus-decoded mm-insert-part mm-decode-string mm-get-part message "Error while rendering html; showing as text/plain"] 4))) 3 lambda let ((inhibit-read-only t)) append functionp remove-specifier ((dolist (prop '(background background-pixmap foreground)) (remove-specifier (face-property 'default prop) (current-buffer)))) delete-region point-min-marker point-max-marker url-standalone-mode b text bsubstr #1# fill-column w3-strict-width debug-on-error debug-on-quit] 10]) #@60 Whether gnus-article-mode has been setup to use emacs-w3m. (defvar mm-w3m-setup nil (#$ . 4759)) #@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-inline-text-html-with-images w3m-display-inline-images require w3m gnus-article-mode mm-w3m-cid-retrieve t] 2 (#$ . 4862)]) (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 @\202L A@@)\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) "\301\302\"\205 \303\304\215\206 \305\306\307\"\210\207" [url string-match "\\`cid:" found-handle (byte-code "\303\304\305\225\306O\307Q\211r q\210\n)\"\207" [url w3m-current-buffer gnus-article-mime-handles mm-w3m-cid-retrieve-1 "<" 0 nil ">"] 5) nil message "Failed to find \"Content-ID: %s\""] 4 (#$ . 5558)]) #@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\337 e $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 (#$ . 5992)]) #@53 *T means the w3m command supports the m17n feature. (defvar mm-w3m-standalone-supports-m17n-p (byte-code "\300\301!\205 \302\207" [featurep mule undecided] 2) (#$ . -7197)) #@56 Say whether the w3m command supports the m17n feature. (defalias 'mm-w3m-standalone-supports-m17n-p #[nil "\301=\203 \301\207\302=\203 \302\207\303\304!\204 \302\211\207\302\305\306\217\203% \301\211\207\302\211\207" [mm-w3m-standalone-supports-m17n-p t nil featurep mule (byte-code "\304\211\305\306\304\"\307\310!r q\210\311\216\312 \210c\210\313ed\314\315\211\316\317\320\321\322\323\324\323& \210eb\210\325\316\315#.\207" [str coding-system-for-read coding-system-for-write #1=#:temp-buffer iso-2022-jp mm-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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte call-process-region "w3m" t nil "-dump" "-T" "text/html" "-I" "iso-2022-jp" "-O" search-forward] 14) ((error))] 3 (#$ . 7377)]) #@36 Render a text/html part using w3m. (defalias 'mm-inline-text-html-render-with-w3m-standalone #[(handle) "\306 \203a \307!\310A@\303\"\206 \311 !\312 \203* \313 !\211\203* \n\314=\203. \315\316\317\320\321! r q\210\322\216\323 \210\fc\210\324 \210\325\n !\326ed\327\330\211\312\331\332\333\334 \335 & \210*\336 +\"+\207\337\312\327\331\332\333&\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 ascii "iso-8859-1" iso-8859-1 mm-insert-inline generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte mm-enable-multibyte binary call-process-region "w3m" t "-dump" "-T" "text/html" "-I" "-O" buffer-string mm-inline-render-with-stdin coding-system-for-read coding-system-for-write] 16 (#$ . 8240)]) (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 mm-make-temp-file expand-file-name "mm" binary write-region nil silent ((delete-file file)) 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*" ((byte-code "\301!\203\n \302!\210\301\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*" ((byte-code "\301!\203\n \302!\210\301\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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte mm-decode-string apply buffer-string args] 5]) (defalias 'mm-inline-text-html #[(handle) "\211\n\236\306 \203 A\307 !\203 !\202\" \310 @ A#+\207" [mm-text-html-renderer func mm-text-html-renderer-alist entry inhibit-read-only handle t functionp apply] 5]) (defalias 'mm-inline-text-vcard #[(handle) "\302\303 \304\305\306\307\217P\")\207" [inhibit-read-only handle t mm-insert-inline "\n-- \n" nil (byte-code "\301\302!\203\f \302\303!!\207\304\305\303!\306\"!\207" [handle fboundp vcard-pretty-print mm-get-part vcard-format-string vcard-parse-string vcard-standard-filter] 4) ((error))] 6]) (defalias 'mm-inline-text #[(handle) "`\306\211@;\203 @\202 A@@)\307\"\211A@*\310A@\303\"\311 \312=\2045 \312=\203E \214``}\210\313!\210db\210)\202I \314!\210 \203y \f\315\232\203y \316\317A@\"A\320\232\203y \214 `}\210 b\210\321\322\316\323A@\"A\324\232\"\210db\210)\214 `}\210\325\233\326\322\327\330\331\332 \333 EEE\240-\207" [handle x inhibit-read-only charset type b 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" 3 lambda let ((inhibit-read-only t)) delete-region point-min-marker point-max-marker mail-parse-charset mm-fill-flowed] 8]) #@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!\312`!EEE\240)\207" [b text handle "\n" 3 lambda nil let ((inhibit-read-only t)) delete-region copy-marker] 9 (#$ . 12453)]) (defalias 'mm-inline-audio #[(handle) "\300\301!\207" [message "Not implemented"] 2]) (defalias 'mm-w3-prepare-buffer #[nil "\303\304!\210\305\211\306\307 +\207" [w3-honor-stylesheets url-gateway-unplugged url-standalone-mode require w3 t nil w3-prepare-buffer] 3]) (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 \331 EFE\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)) (if (fboundp 'remove-specifier) (dolist (prop '(background background-pixmap foreground)) (remove-specifier (face-property 'default prop) (current-buffer)))) delete-region point-min-marker point-max-marker gnus-newsgroup-charset gnus-article-prepare-hook gnus-article-mime-handles gnus-original-article-buffer] 10]) #@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 +r\311\323!q\210\324 \210\325 \210 \310=\203R r@q\210\322 )\202i \203] \326\n \"\202i \203h \327\n \"\202i \nc\210\330\331!\210\307\211 $\332\333!\210\307\317!%\332\334!\210\307 \335 &'\203\226 & \210\202\233 \336\337\340\217\210+\322 \341\307!\210\342p!\210)\343\n\"+\207" [handle coding-system text charset #1=#:temp-buffer font-lock-support-mode mail-content-type-get nil gnus-decoded generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\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 "*fontification*" buffer-disable-undo mm-enable-multibyte mm-decode-coding-string mm-decode-string require font-lock make-local-variable font-lock-mode-hook enable-local-variables #[nil "\203\n \210\202 \303\304\305 \"\306 !\"\307 \210)\310J\206 \n\311=?\205& \312 \207" [mode auto-mode-alist major-mode delq rassq doc-view-mode-maybe copy-sequence set-auto-mode font-lock-mode fundamental-mode font-lock-fontify-buffer] 4] #2=#:err (funcall #3=#:body) ((error (message "Error: %S" #2#))) set-buffer-modified-p kill-buffer mm-insert-inline font-lock-verbose buffer-file-name #3# debug-on-error] 5 (#$ . 14183)]) (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 (#$ . 16071)]) #@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 (#$ . 16242)]) #@42 Show JavsScript code from HANDLE inline. (defalias 'mm-display-javascript-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify javascript-mode] 3 (#$ . 16429)]) (defvar mm-pkcs7-signed-magic "0\\(\200\\|\201.\\|\202..\\|\203...\\) \\*\206H\206\367 ") (defvar mm-pkcs7-enveloped-magic "0\\(\200\\|\201.\\|\202..\\|\203...\\) \\*\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*" ((byte-code "\301!\203\n \302!\210\301\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!\304 \305\"\203 \306\n\"\202\" \304 \307\"\203 \310!\202\" \311\312!)\207" [handle #1=#:--cl-var-- from mm-view-pkcs7-get-type eql enveloped mm-view-pkcs7-decrypt signed mm-view-pkcs7-verify error "Unknown or unimplemented PKCS#7 type"] 3]) (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#\2034 e\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*" ((byte-code "\301!\203\n \302!\210\301\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]) (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\322ed G\323U\203< @A@\202I \324\325\326 \327\211\211 \242\242&!\f$\210eb\210\330\331\327\332#\203^ \333\334!\210\202O eb\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)