;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\316DD\317\320\321\322\301\323\324&	\210\312\325\314\315\326DD\327\320\321\322\301\323\330&	\210\312\331\314\315\332DD\333\320\321\322\301\323\334&	\210\312\335\314\315\336DD\337\320\321\322\301\323\340&	\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 funcall function #[0 "\300\301!\207" [days-to-time 7] 2 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "Whether automatically cache retrieve images." boolean gnus-html-frame-width #[0 "\300\207" [70] 1 #1#] "What width to use when rendering HTML." integer gnus-max-image-proportion #[0 "\300\207" [0.9] 1 #1#] "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 "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\207" [make-sparse-keymap define-key "u" gnus-article-copy-string "i" gnus-html-insert-image "v" gnus-html-browse-url] 5))
(defvar gnus-html-displayed-image-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\207" [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] button-forward] 5))
#@23 Encode URL.

(fn URL)
(defalias 'gnus-html-encode-url #[257 "\300
\301\"\207" [browse-url-url-encode-chars "[)$ ]"] 4 (#$ . 1854)])
#@57 Check if URL is cached for more than TTL.

(fn URL TTL)
(defalias 'gnus-html-cache-expired #[514 "\203\301\302!!?\207\303!\211\203\304\305\"\306\"\207\307\207" [url-standalone-mode file-exists-p url-cache-create-filename url-is-cached time-less-p time-add nil t] 7 (#$ . 1992)])
#@25 

(fn &optional HANDLE)
(defalias 'gnus-article-html #[256 "p
\204\n\305\306!\262\214``}\210\212
@\203\244\307@!\203\244\310\311\306\"r\211q\210\312\313\"\216\314 \210\315@!\210\316\3178\211@;\203C\211@\262
\202I\211A@@\262
\"\210\320\211	B\321A@\322\"\211\203{\323
\324\306#\211\262\203{\211\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\f\"\341\351\352\353&\210+\210*\210)\354 )\207" [coding-system-for-read coding-system-for-write default-process-coding-system tab-width gnus-html-frame-width mm-dissect-buffer t buffer-name generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 32 (#$ . 2286)])
(defalias 'gnus-html-pre-wash #[0 "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 #[0 "\303\211\211\211\211\304!\203rq\210	\262\305 \262
)\202!	\262\305 \262
eb\210\306\307\303\310#\205|
\311\312!\262\313\224\262`|\210\314\315\316 \310#\203H\313\224\313\225|\210`\262\317\320\"\203$\321\311\312\"!\317\322\"\205i\323\311\324\"!\325\326\327#\210\330\331\332\333\334\"\335\336\310\337\n\340F\257\f#\210\317\341\"\203 
\342\313\225\303O!\211\205\354?\205\354\343
@\205\351\344@!\205\351\345\346\310\"r\211q\210\333\347\"\216\350 \210\351@!\210\352\3248\211@;\203\334\211@\262
\202\342\211A@@\262
\"\210\353 *\262
\303\310#\211\203
\354\355\356\357\360 \"\361\f\f{

|\210\362D!\355#\"\266\202$\363\335\337\n&\266\202$\204+
\364\"\203;
\363\335\337\n&\266\202$\317\365\"\205J
\366\311\312	\"!\317\367	\"\205Y
\366\311\312\n\"!\211\203c
\211\370V\203w

\203m

\370V\203w
\371		$\210\266\202$\207" [gnus-summary-buffer gnus-inhibit-images gnus-html-image-map 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-html-encode-url "\\(alt\\|title\\)=\"\\([^\"]+\\)" xml-substitute-special 2 gnus-message 8 "gnus-html-wash-tags: fetching image URL %s" add-text-properties image-url image-displayer make-closure #[771 "\301\300$\207" [V0 gnus-html-display-image] 8 "\n\n(fn URL START END)"] help-echo button keymap gnus-image "\\`cid:" mm-get-content-id gnus-create-image buffer-name generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 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 "*" make-text-button gnus-html-image-url-blocked-p "width=\"?\\([0-9]+\\)" string-to-number "height=\"?\\([0-9]+\\)" 4 gnus-html-display-image] 25 (#$ . 3741)])
#@123 Display image at URL on text from START to END.
Use ALT-TEXT for the image string.

(fn URL START END &optional ALT-TEXT)
(defalias 'gnus-html-display-image #[1027 "\211\204\301\262
\302\303\"\203_\304\305\225\306O!\211\205^\307
@\205Z\310@!\205Z\311\312\313\"r\211q\210\314\315\"\216\316 \210\317@!\210\320\3218\211@;\203M\211@\262
\202S\211A@@\262
\"\210\322 *\262
#\207\323\"\203m\324pD\"\207\307\325!#\207" [gnus-html-image-cache-ttl "*" string-match "\\`cid:" mm-get-content-id 0 nil gnus-html-put-image buffer-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 11 (#$ . 5810)])
(defalias 'gnus-html-wash-tags #[0 "\301\211\211\211\211\302 \210\303 \210eb\210\304\305\301\306#\203\313
\307\310!\262\307\311!\262\312\224\262G\312V\2035\313\312GS\301$\210`|\210\314\315\316Q\301\306#\203K\312\224\312\225|\210`\262\317\232\204\305
\320\232\204`\321\232\203\242\322\323\"\203\305
\307\310\"\262
\324\325\326#\210\327\330\331!%\210\332\"\333
\334\306#\210\333
\335#\210\336\337$\210\203\236\333
\340#\210\210\202\305
\341\232\203\257|\210\202\305
\342\232\204\273\343\232\203\307\333\332\"\344\345#\210\202\305
\346\232\204\323\347\232\203\337\333\332\"\344\350#\210\202\305
\351\232\204\353\352\232\203\367\333\332\"\344\353#\210\202\305
\354\232\204
\355\232\203
\333\332\"\344\356#\210\202\305
\357\232\204
\360\232\203'
\333\332\"\344\350#\210\202\305
\361\232\203\305
\322\362\"\203\305
\363\307\310\"!|\210\211\364U\203L
\365c\266\202\305
\211\366U\203Y
\365c\266\202\305
\211\367U\203f
\365c\266\202\305
\211\370U\203s
\365c\266\202\305
\211\371U\203\200
\365c\266\202\305
\211\372U\203\215
\365c\266\202\305
\211\373U\203\232
\365c\266\202\305
\211\374U\203\247
\365c\266\202\305
\211\375U\203\264
\365c\266\202\305
\211\376U\203\301
\365c\266\202\305
\365c\266b\210\202eb\210\304\377\301\306#\203\343
\201@\201A\306\211#\210\202\316
\201B \207" [gnus-article-mouse-face 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 39 40 42 43 "</pre_int>\\|</internal>" replace-match "" mm-url-decode-entities] 11])
#@58 Fetch and insert the image under point.

(fn &rest ARGS)
(defalias 'gnus-html-insert-image #[128 "\300\301\302`\303\"\"\207" [apply gnus-html-display-image get-text-property gnus-image] 6 (#$ . 8783) nil])
#@45 Show the ALT text of the image under point.
(defalias 'gnus-html-show-alt-text #[0 "\300\301\302`\303\"\"\207" [message "%s" get-text-property gnus-alt-text] 5 (#$ . 8995) nil])
#@31 Browse the image under point.
(defalias 'gnus-html-browse-image #[0 "\300\301`\302\"!\207" [browse-url get-text-property image-url] 4 (#$ . 9179) nil])
#@31 Browse the image under point.
(defalias 'gnus-html-browse-url #[0 "\300`\301\"\211\204\f\302\303!\207\304\305\"\203\306
!\207\307
!\207" [get-text-property gnus-string message "No link under point" string-match "^mailto:" gnus-url-mailto browse-url] 4 (#$ . 9337) nil])
#@73 Retrieve IMAGE, and place it into BUFFER on arrival.

(fn BUFFER IMAGE)
(defalias 'gnus-html-schedule-image-fetching #[514 "\300\301\302$\210\303
@\304D\305\211%\207" [gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" url-queue-retrieve gnus-html-image-fetched t] 8 (#$ . 9617)])
#@81 Callback function called when image has been fetched.

(fn STATUS BUFFER IMAGE)
(defalias 'gnus-html-image-fetched #[771 "\302\303\"\204=\304\305\306\307#\204\304\310\306\307#\203=m\204=\203#\311p!\210\312!\203=`d{rq\210\307\313
@A@#\210*\210\314p!\207" [gnus-html-image-automatic-caching inhibit-read-only plist-get :error search-forward "\n\n" nil t "
\n
\n" url-store-in-cache buffer-live-p gnus-html-put-image kill-buffer] 8 (#$ . 9929)])
#@68 Get image data for URL.
Return a string with image data.

(fn URL)
(defalias 'gnus-html-get-image-data #[257 "\300\301\302\"r\211q\210\303\304\"\216\305 \210\306\307!!\210\310\311\312\302#\204&\310\313\312\302#\205)`d{*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte url-cache-extract url-cache-create-filename search-forward "\n\n" nil "
\n
\n"] 6 (#$ . 10392)])
#@79 Return the maximum size of an image according to `gnus-max-image-proportion'.
(defalias 'gnus-html-maximum-image-size #[0 "\301\302p!!\303\3048@Z_!\303\3058A@Z_!B\207" [gnus-max-image-proportion window-inside-pixel-edges get-buffer-window truncate 2 3] 6 (#$ . 10858)])
#@90 Put an image with DATA from URL and optional ALT-TEXT.

(fn DATA URL &optional ALT-TEXT)
(defalias 'gnus-html-put-image #[770 "\302 \205\310\303ed\304$\211\205\305
\304\"
\205\306\3061$\307\310\311#0\202&\210\310\211\205.\312
\311\"\212b\210\206:\313\"\311\203\245<\203]\314A\315\"\316=\203]
@\317U\203]
A\317U\204\245\320\321 \"|\210\322
\323#\210\324`\325\326	&\210\327`\330$\210\203\232\331`\304\332\333\334\335\336\337\340
\257EF#\210\341\323\"\210\311\262
\202\300\342\343!\203\277|\210\343\344!\262\322\345#\210\341\345\"\210\310)\262
)\266\202\266\202\207" [inhibit-read-only gnus-html-displayed-image-map 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 make-text-button help-echo keymap put-text-property gnus-alt-text add-text-properties image-displayer lambda (url start end) gnus-html-display-image url start end gnus-add-image fboundp find-image ((:type xpm :file "lock-broken.xpm")) internal] 22 (#$ . 11140)])
#@72 Find out if URL is blocked by BLOCKED-IMAGES.

(fn URL BLOCKED-IMAGES)
(defalias 'gnus-html-image-url-blocked-p #[514 "\211\205\300
\"\211\203\301\302\303$\210\207\301\304\305$\210\207" [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"] 8 (#$ . 12317)])
#@16 

(fn SUMMARY)
(defalias 'gnus-html-prefetch-images #[257 "\302
!\205K\303\211rq\210\262\304 \262
)\305 \306\307\"\216\310\311\303\312#\205F\313\314\315\316!!!\204B\317
\"\204B\320
	\"\203B\321\303C\"\210\210\202)\262
\266\202\207" [gnus-inhibit-images gnus-html-image-cache-ttl buffer-live-p nil gnus-blocked-images match-data make-closure #[0 "\301\300\302\"\207" [V0 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] 8 (#$ . 12675)])
(provide 'gnus-html)