HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/gnus-html.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\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\317\320\301\321\322&	\210\312\323\324\325\316\317\320\301\321\326&	\210\312\327\330\331\316\317\320\301\321\332&	\210\312\333\334\335\316\317\320\301\321\336&	\207" [require gnus-art mm-url url url-cache xml browse-url mm-util help-fns url-queue custom-declare-variable gnus-html-image-cache-ttl (days-to-time 7) "Time used to determine if we should use images from the cache." :version "24.1" :group :type (list integer integer) gnus-html-image-automatic-caching t "Whether automatically cache retrieve images." boolean gnus-html-frame-width 70 "What width to use when rendering HTML." integer gnus-max-image-proportion 0.9 "How big pictures displayed are in relation to the window they're in.\nA value of 0.7 means that they are allowed to take up 70% of the\nwidth and height of the window.  If they are larger than this,\nand Emacs supports it, then the images will be rescaled down to\nfit these criteria." float] 10)
(defvar gnus-html-image-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "u" gnus-article-copy-string "i" gnus-html-insert-image "v" gnus-html-browse-url] 4))
(defvar gnus-html-displayed-image-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210)\207" [map make-sparse-keymap define-key "a" gnus-html-show-alt-text "i" gnus-html-browse-image "
" gnus-html-browse-url "u" gnus-article-copy-string [tab] widget-forward] 4))
#@13 Encode URL.
(defalias 'gnus-html-encode-url #[(url) "\301\302\"\207" [url browse-url-url-encode-chars "[)$ ]"] 3 (#$ . 2034)])
#@43 Check if URL is cached for more than TTL.
(defalias 'gnus-html-cache-expired #[(url ttl) "\203\304\305	!!?\207\306	!\211\203\307\310\n\"\311 \"\202\312)\207" [url-standalone-mode url cache-time ttl file-exists-p url-cache-create-filename url-is-cached time-less-p time-add current-time t] 5 (#$ . 2168)])
(defalias 'gnus-article-html #[(&optional handle) "p	\204\n\306\307!\214``}\210\212	\211@\203\245\310	@!\203\245\311\312!r\nq\210\313\216\314 \210\315	@!\210\316\317	8	\211@;\203A	@\202E	A@@)\"\210\320\211\fB\321	A@\322\"\211\203}\323\324\307#\211\203}\325=\204}\326\327 \"\330 \210\331 \210c\210\332ed\333\324\324\334\335\336\337\340\337\341\342\341\343\341\344\345\346\347-\"\350\346\347.\"\341\351\352\353&\210.*\354 *\207" [article-buffer handle #1=#:temp-buffer coding-system-for-read coding-system-for-write default-process-coding-system mm-dissect-buffer t buffer-name generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding 2 utf-8 mail-content-type-get charset mm-charset-to-coding-system nil ascii decode-coding-string buffer-string erase-buffer mm-enable-multibyte call-process-region "w3m" "-halfdump" "-no-cookie" "-I" "UTF-8" "-O" "-o" "ext_halfdump=1" "display_ins_del=2" "pre_conv=1" "-t" format "%s" "-cols" "display_image=on" "-T" "text/html" gnus-html-wash-tags tab-width gnus-html-frame-width] 28])
(defalias 'gnus-html-pre-wash #[nil "eb\210\300\301\302\303#\203\304\305\303\211#\210\202eb\210\300\306\302\303#\205(\304\305\303\211#\210\202\207" [re-search-forward " *<pre_int> *</pre_int> *\n" nil t replace-match "" "<a name[^\n>]+>"] 4])
#@60 Run through current buffer and replace img tags by images.
(defalias 'gnus-html-wash-images #[nil "\306\211\211\211\211\211\211\211\211\211!@AB\307C!\203.rCq\210D\310 )\2024D\310 eb\210\311\312\306\313#\205\266\314\315!A\316\224\211!`|\210\317\320\321 \313#\203[\316\224\316\225|\210`\322\323A\"\2037\324\325\326#\210\327\314\315A\"!\322\330A\"\205\202\331\314\332A\"!\333!
\334\335\336\337\340\303\341\305\n\257E\342!
\nF\257#\210\343\344!`\345\n\346E&\210\322\347\"\203J\350\316\225\306O!\211F\205	?\205\351F\211F@\205
\352F@!\205
\353\354!GrGq\210\355\216\356 \210\357F@!\210\360\332F8F\211F@;\203F@\202FA@@)\"\210\361 +)\306\313#\211H\2034\362\363\364\365H\366 \"\367!
{!
|\210\370D!\363#\"\210\202F\343\371!
\372\373\345\346E\374E&\210*\2027	\204U\375\"\203j\343\371!
\372\373\345\346E\374E&\210\2027\322\376A\"\205y\377\314\315A\"!\322\201KA\"\205\212\377\314\315A\"!IJI\203\234I\201LV\203\262J\203\252J\201LV\203\262\340!
\n$\210*\2027.\n\207" [blocked-images inhibit-images alt-text url images end nil buffer-live-p gnus-blocked-images re-search-forward "<img_alt \\([^>]*\\)>" t match-string 1 0 search-forward "</img_alt>" line-end-position string-match "src=\"\\([^\"]+\\)" gnus-message 8 "gnus-html-wash-tags: fetching image URL %s" gnus-html-encode-url "\\(alt\\|title\\)=\"\\([^\"]+\\)" xml-substitute-special 2 add-text-properties image-url image-displayer lambda (url start end) gnus-html-display-image start gnus-image widget-convert-button url-link :help-echo :keymap "\\`cid:" mm-get-content-id gnus-create-image buffer-name generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding buffer-string gnus-add-image cid gnus-put-image gnus-rescale-image gnus-html-maximum-image-size gnus-string-or-1 "*" link :action gnus-html-insert-image :button-keymap gnus-html-image-url-blocked-p "width=\"?\\([0-9]+\\)" string-to-number string parameters tag gnus-summary-buffer gnus-inhibit-images gnus-html-image-map handle #1# image height width "height=\"?\\([0-9]+\\)" 4] 14 (#$ . 3908)])
#@84 Display image at URL on text from START to END.
Use ALT-TEXT for the image string.
(defalias 'gnus-html-display-image #[(url start end &optional alt-text) "\204\305\306\307	\"\203[\310	\311\225\312O!\211\205Y\313\n\211@\205U\314\n@!\205U\315\316!rq\210\317\216\320 \210\321\n@!\210\322\323\n8\n\211@;\203K\n@\202O\nA@@)\"\210\324 +)	#)\207\325	\f\"\203i\326p	D\"\207\313\327	!	#\207" [alt-text url handle #1=#:temp-buffer gnus-html-image-cache-ttl "*" string-match "\\`cid:" mm-get-content-id 0 nil gnus-html-put-image buffer-name generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring mm-decode-content-transfer-encoding 2 buffer-string gnus-html-cache-expired gnus-html-schedule-image-fetching gnus-html-get-image-data] 5 (#$ . 6155)])
(defalias 'gnus-html-wash-tags #[nil "\306\211\211\211\211\211\211@\307 \210\310 \210eb\210\311\312\306\313#\203\357\314\315!@\314\316!\317\224
G\317V\203<\320\317
GS\306
$\210`|\210\321\322@\323Q\306\313#\203R\317\224\317\225|\210`@\324\232\204\351@\325\232\204i@\326\232\203\261\327\330
\"\203\351\314\315
\"\331\332\333#\210\334\n\335\336!%\210\337\n\"A\340A\341\313#\210\340A\342#\210\343\n\344$\210B\203\255\340A\345B#\210)\202\351@\346\232\203\277\n|\210\202\351@\347\232\204\315@\350\232\203\331\340\337\n\"\351\352#\210\202\351@\353\232\204\347@\354\232\203\363\340\337\n\"\351\355#\210\202\351@\356\232\204@\357\232\203
\340\337\n\"\351\360#\210\202\351@\361\232\204@\362\232\203'\340\337\n\"\351\363#\210\202\351@\364\232\2045@\365\232\203A\340\337\n\"\351\355#\210\202\351@\366\232\203\351\327\367
\"\203\351\370\314\315
\"!C\n|\210C\371U\203h\372c\210\202\350C\373U\203u\372c\210\202\350C\374U\203\202\372c\210\202\350C\375U\203\217\372c\210\202\350C\376U\203\234\372c\210\202\350C\377U\203\251\372c\210\202\350C\201DU\203\270\372c\210\202\350C\201EU\203\307\372c\210\202\350C\201FU\203\326\372c\210\202\350C\201GU\203\345\372c\210\202\350\372c\210)b\210\202eb\210\311\201H\306\313#\203	\201I\201J\313\211#\210\202\362\201K .\207" [url images end start string parameters nil gnus-html-pre-wash gnus-html-wash-images re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" t match-string 1 2 0 set-text-properties search-forward "</" ">" "img_alt" "a" "A" string-match "href=\"\\([^\"]+\\)" gnus-message 8 "gnus-html-wash-tags: fetching link URL %s" gnus-article-add-button browse-url mm-url-decode-entities-string make-overlay overlay-put evaporate gnus-button-url put-text-property gnus-string mouse-face "IMG_ALT" "b" "B" face gnus-emphasis-bold "u" "U" gnus-emphasis-underline "i" "I" gnus-emphasis-italic "s" "S" gnus-emphasis-strikethru "ins" "INS" "_SYMBOL" "TYPE=\\(.+\\)" string-to-number 33 " " 34 35 36 37 38 tag overlay gnus-article-mouse-face type 39 40 42 43 "</pre_int>\\|</internal>" replace-match "" mm-url-decode-entities] 7])
#@41 Fetch and insert the image under point.
(defalias 'gnus-html-insert-image #[(&rest args) "\300\301\302`\303\"\"\207" [apply gnus-html-display-image get-text-property gnus-image] 5 (#$ . 9174) nil])
#@45 Show the ALT text of the image under point.
(defalias 'gnus-html-show-alt-text #[nil "\300\301\302`\303\"\"\207" [message "%s" get-text-property gnus-alt-text] 5 (#$ . 9378) nil])
#@31 Browse the image under point.
(defalias 'gnus-html-browse-image #[nil "\300\301`\302\"!\207" [browse-url get-text-property image-url] 4 (#$ . 9564) nil])
#@31 Browse the image under point.
(defalias 'gnus-html-browse-url #[nil "\301`\302\"\211\204\303\304!\202\305\306\"\203\307!\202\310!)\207" [url get-text-property gnus-string message "No link under point" string-match "^mailto:" gnus-url-mailto browse-url] 4 (#$ . 9724) nil])
#@54 Retrieve IMAGE, and place it into BUFFER on arrival.
(defalias 'gnus-html-schedule-image-fetching #[(buffer image) "\302\303\304	$\210\305	@\306	D\307\211%\207" [buffer image gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" url-queue-retrieve gnus-html-image-fetched t] 6 (#$ . 10015)])
#@55 Callback function called when image has been fetched.
(defalias 'gnus-html-image-fetched #[(status buffer image) "\306\307\"\204=\310\311\312\313#\204\310\314\312\313#\203=m\204=	\203#\315p!\210\316\n!\203=`d{r\nq\210\313\317
@
A@#\210+\320p!\207" [status gnus-html-image-automatic-caching buffer data inhibit-read-only image plist-get :error search-forward "\n\n" nil t "
\n
\n" url-store-in-cache buffer-live-p gnus-html-put-image kill-buffer] 4 (#$ . 10333)])
#@58 Get image data for URL.
Return a string with image data.
(defalias 'gnus-html-get-image-data #[(url) "\302\303!rq\210\304\216\305 \210\306\307	!!\210\310\311\312\313#\204#\310\314\312\313#\205&`d{+\207" [#1=#:temp-buffer url generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte url-cache-extract url-cache-create-filename search-forward "\n\n" nil t "
\n
\n"] 4 (#$ . 10813)])
#@79 Return the maximum size of an image according to `gnus-max-image-proportion'.
(defalias 'gnus-html-maximum-image-size #[nil "\302\303p!!\304	\3058@Z_!\304	\3068A@Z_!)B\207" [edges gnus-max-image-proportion window-inside-pixel-edges get-buffer-window truncate 2 3] 5 (#$ . 11262)])
#@56 Put an image with DATA from URL and optional ALT-TEXT.
(defalias 'gnus-html-put-image #[(data url &optional alt-text) "\306 \205\313\307ed\310$\211\205\311	\310\"	\205\312\3121&\313\314\315#0\202(\210\314\211\2051\316\f\315\"\212	b\210(\206?\317	\n\"\315)(\f\203\256\f<\203e\320\fA\321\"\322=\203e
@\323U\203e
A\323U\204\256\324\f\325 \"	\n|\210\326\f(\327#\210\330\331	`\332(\333*&\210\334	`\335($\210\203\244\336	`\310\337\340\341\342\300\301\302(\257EF#\210\343\327\f\"\210)\315\202\311\344\345!\203\310	\n|\210\345\346!\326\f(\347#\210\343\347\f\"\210\314-*\207" [url start end data image size display-graphic-p text-property-any image-url next-single-property-change (error) gnus-create-image nil t image-size buffer-substring-no-properties plist-get :type gif 30 gnus-rescale-image gnus-html-maximum-image-size gnus-put-image external widget-convert-button url-link :help-echo :keymap put-text-property gnus-alt-text add-text-properties image-displayer lambda (url start end) gnus-html-display-image gnus-add-image fboundp find-image ((:type xpm :file "lock-broken.xpm")) internal alt-text inhibit-read-only gnus-html-displayed-image-map] 14 (#$ . 11554)])
#@47 Find out if URL is blocked by BLOCKED-IMAGES.
(defalias 'gnus-html-image-url-blocked-p #[(url blocked-images) "\205\303	\"\211\203\304\305\306	$\210\202\304\307\310	$\210\n)\207" [blocked-images url ret string-match gnus-message 8 "gnus-html-image-url-blocked-p: %s blocked by regex %s" 9 "gnus-html-image-url-blocked-p: %s passes regex %s"] 6 (#$ . 12761)])
(defalias 'gnus-html-prefetch-images #[(summary) "\306!\205G\307\211rq\210\310 )\311 \312\216\313\314\307\315#\205F\316\317\320\321!!!\n\204B\322
	\"\204B\323
\"\203B\324\307
C\"\210)\202,\207" [summary blocked-images inhibit-images gnus-inhibit-images save-match-data-internal url buffer-live-p nil gnus-blocked-images match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] re-search-forward "<img[^>]+src=[\"']\\(http[^\"']+\\)" t gnus-html-encode-url mm-url-decode-entities-string match-string 1 gnus-html-image-url-blocked-p gnus-html-cache-expired gnus-html-schedule-image-fetching gnus-html-image-cache-ttl] 4])
(provide 'gnus-html)