WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/gnus
Viewing File: /usr/share/emacs/24.3/lisp/gnus/gnus-html.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:54:16 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-html.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!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\311\312\313\314\315\316\317\301\320\321&	\210\311\322\323\324\315\316\317\301\320\325&	\210\311\326\327\330\315\316\317\301\320\321&	\210\311\331\332\333\315\316\317\301\320\334&	\207" [require gnus-art mm-url url url-cache xml browse-url mm-util help-fns 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 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." 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))
(byte-code "\300\301\302\303!\203\f\303\202
\304\"\207" [defalias gnus-html-encode-url-chars fboundp browse-url-url-encode-chars #[(text chars) "\304!\305\306\n	#\211\203%\307\310\311\312\313\305\n\"!\"\314\211\n$	T\202\n*\207" [text s encoded-text chars copy-sequence 0 string-match replace-match format "%%%x" string-to-char match-string t] 7 "URL-encode the chars in TEXT that match CHARS.\nCHARS is a regexp-like character alternative (e.g., \"[)$]\")."]] 4)
#@13 Encode URL.
(defalias 'gnus-html-encode-url #[(url) "\301\302\"\207" [url gnus-html-encode-url-chars "[)$ ]"] 3 (#$ . 2612)])
#@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 (#$ . 2745)])
(defalias 'gnus-article-html #[(&optional handle) "p	\204\n\306\307!\214``}\210\212	\211@\203\243\310	@!\203\243\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!\211\203{\324=\204{\325\326 \"\327 \210\330 \210c\210\331ed\332\333\333\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*" ((byte-code "\301!\203\n\302!\210\301\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 ascii mm-decode-coding-string buffer-string erase-buffer mm-enable-multibyte call-process-region "w3m" nil "-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!@AB\307C!\203.rCq\210D\310 )\2024D\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\323A\"\2037\324\325\326#\210\327\314\315A\"!\322\330A\"\205\202\331\314\332A\"!\333!
\334\335\336\337\340\303\341\305\n\257E\342!
\nF\257#\210\343\344!`\345\n\346E&\210\322\347\"\203J\350\316\225\306O!\211F\205	?\205\351F\211F@\205
\352F@!\205
\353\354!GrGq\210\355\216\356 \210\357F@!\210\360\332F8F\211F@;\203F@\202FA@@)\"\210\361 +)\306\313#\211H\2034\362\363\364\365H\366 \"\367!
{!
|\210\370D!\363#\"\210\202F\343\371!
\372\373\345\346E\374E&\210*\2027	\204U\375\"\203j\343\371!
\372\373\345\346E\374E&\210\2027\322\376A\"\205y\377\314\315A\"!\322\201KA\"\205\212\377\314\315A\"!IJI\203\234I\201LV\203\262J\203\252J\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 gnus-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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 4496)])
#@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!rq\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 6764)])
(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\340A\341\313#\210\340A\342#\210\343\n\344$\210B\203\255\340A\345B#\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|\210C\371U\203h\372c\210\202\350C\373U\203u\372c\210\202\350C\374U\203\202\372c\210\202\350C\375U\203\217\372c\210\202\350C\376U\203\234\372c\210\202\350C\377U\203\251\372c\210\202\350C\201DU\203\270\372c\210\202\350C\201EU\203\307\372c\210\202\350C\201FU\203\326\372c\210\202\350C\201GU\203\345\372c\210\202\350\372c\210)b\210\202eb\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 gnus-make-overlay gnus-overlay-put evaporate gnus-button-url gnus-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 (#$ . 9814) 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 (#$ . 10018) 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 (#$ . 10205) 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 (#$ . 10366) 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!\203\306	@\307	D\310\211%\207\311\312\313\217\207" [buffer image gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" fboundp url-queue-retrieve gnus-html-image-fetched t nil (byte-code "\302@\303	D#\207" [image buffer url-retrieve gnus-html-image-fetched] 5) ((error))] 6 (#$ . 10658)])
#@55 Callback function called when image has been fetched.
(defalias 'gnus-html-image-fetched #[(status buffer image) "\306\307\"\204A\310\311\312\313#\204\310\314\312\313#\203Am\204A	\203#\315p!\210\316\n!\203A`d{r\nq\210\313\317
@
\211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 x] 5 (#$ . 11120)])
#@58 Get image data for URL.
Return a string with image data.
(defalias 'gnus-html-get-image-data #[(url) "\302\303!rq\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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 11609)])
#@79 Return the maximum size of an image according to `gnus-max-image-proportion'.
(defalias 'gnus-html-maximum-image-size #[nil "\302\303p!!\304	\3058@Z_!\304	\3068A@Z_!)B\207" [edges gnus-max-image-proportion gnus-window-inside-pixel-edges get-buffer-window truncate 2 3] 5 (#$ . 12074)])
#@56 Put an image with DATA from URL and optional ALT-TEXT.
(defalias 'gnus-html-put-image #[(data url &optional alt-text) "\306 \205\271\307ed\310$\211\205\311	\310\"	\205\270\312\313\314\217\211\205&\315\316\"\212	b\210
\2063\317	\n\"\316(\203\235<\203X\320A\321\"\322=\203X\f@\323U\203X\fA\323U\204\235\324\325 \"	\n|\210\326
\327#\210\330\331	`\332
\333)&\210\334	`\335
$\210\203\223\336	`\310\337\340\341\342\300\301\302
\257EF#\210\343\327\"\210)\316\202\267\344\345!\203\266	\n|\210\345\346!\326
\347#\210\343\347\"\210\312-*\207" [url start end image size alt-text gnus-graphic-display-p text-property-any image-url next-single-property-change nil (gnus-create-image data nil t) ((error)) image-size t 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 gnus-put-text-property gnus-alt-text gnus-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 inhibit-read-only gnus-html-displayed-image-map] 14 (#$ . 12371)])
#@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 (#$ . 13569)])
(defalias 'gnus-html-prefetch-images #[(summary) "\306!\205G\307\211rq\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 ((byte-code "\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)
F1l3 Manager
