ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/mm-view.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\317\"\210\307\320\317\"\210\307\321\322\"\210\307\323\324\325\326$\207" [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) (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)) (#$ . 926))
(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" lambda nil let ((inhibit-read-only t)) ((remove-images b b) (delete-region b (1+ b))) mm-inline-large-images-proportion] 8])
(defalias 'mm-inline-image-xemacs #[(handle) "\300\207" [nil] 1])
(defalias 'mm-inline-image 'mm-inline-image-emacs)
#@60 Whether gnus-article-mode has been setup to use emacs-w3m.
(defvar mm-w3m-setup nil (#$ . 2529))
#@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 (#$ . 2632)])
(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) "\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 (#$ . 3320)])
#@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 (#$ . 3719)])
#@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) (#$ . -4924))
#@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\307\310!\204 \306\211\207\3111V \312\211\313\314\312\"\315\316! r\fq\210\317\216\320 \210 c\210\321ed\322\305\211\306\323\324\325\326\327\330\327&
\210eb\210\331 \306\305#.0\202Z \210\202a \203a \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 featurep mule (error) 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*" #[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 (#$ . 5104)])
#@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 (#$ . 5929)])
(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 #[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 @\202 A@@)\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\233\326\322\327\330\331\332e\311\"\333 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" 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 (#$ . 10203)])
(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 \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!0\332\334!\210\307 \3351\321 1\203\242 \336 2\337\216\340p!\2101 \210*\202\263 \341\342\3433\"\3443!\" 3\345 \210)4\206\274 5\346=?\205\315 \347\350!\203\313 \350 \202\315 \351 0\202\331 6\352\3536\")\210*\322 \354\307!\210\355p!\210)\356\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*" #[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 "*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 (debug error) current-window-configuration #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] switch-to-buffer delq rassq doc-view-mode-maybe copy-sequence set-auto-mode fundamental-mode fboundp font-lock-ensure font-lock-fontify-buffer message "Error: %S" set-buffer-modified-p kill-buffer mm-insert-inline font-lock-verbose buffer-file-name mode #2# auto-mode-alist font-lock-mode major-mode #3=#:err] 5 (#$ . 11769)])
(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 (#$ . 13776)])
#@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 (#$ . 13947)])
#@42 Show JavsScript code from HANDLE inline.
(defalias 'mm-display-javascript-inline #[(handle) "\301\302\"\207" [handle mm-display-inline-fontify javascript-mode] 3 (#$ . 14134)])
(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!\304 \305\"\203 \306\n\"\202\" \304 \307\"\203 \310!\202\" \311\312!)\207" [handle #1=#:temp 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*" #[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\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)
Kontol Shell Bypass