;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/shr.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\306\307\310\303\316\317&	\210\312\320\304\321\306\307\310\303\316\322&	\210\312\323\324\325\310\303\316\326&\210\312\327\324\330\310\303\316\326&\210\312\331\324\332\310\303\316\326&\210\312\333\334\335\310\303\316\326&\210\312\336\337\340\316\341\310\303&\207" [require browse-url custom-declare-group shr nil "Simple HTML Renderer" :version "24.1" :group mail custom-declare-variable shr-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." :type float shr-blocked-images "Images that have URLs matching this regexp will be blocked." regexp shr-table-horizontal-line 32 "Character used to draw horizontal table lines." character shr-table-vertical-line "Character used to draw vertical table lines." shr-table-corner "Character used to draw table corners." shr-hr-line 45 "Character used to draw hr lines." shr-width fill-column "Frame width to use for rendering.\nMay either be an integer specifying a fixed width in characters,\nor nil, meaning that the full width of the window should be\nused." (choice (integer :tag "Fixed width in characters") (const :tag "Use the width of the window" nil))] 10)
#@157 If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
cid: URL as the argument.
(defvar shr-content-function nil (#$ . 2001))
#@46 Function called to put image and alt string.
(defvar shr-put-image-function 'shr-put-image (#$ . 2209))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face shr-strike-through ((t (:strike-through t))) "Font for <s> elements." :group shr shr-link ((t (:inherit link))) "Font for link elements."] 6)
(defvar shr-folding-mode nil)
(defvar shr-state nil)
(defvar shr-start nil)
(defvar shr-indentation 0)
(defvar shr-inhibit-images nil)
(defvar shr-list-mode nil)
(defvar shr-content-cache nil)
(defvar shr-kinsoku-shorten nil)
(defvar shr-table-depth 0)
(defvar shr-stylesheet nil)
(defvar shr-base nil)
(defvar shr-ignore-cache nil)
(defvar shr-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\316#\210)\207" [map make-sparse-keymap define-key "a" shr-show-alt-text "i" shr-browse-image "z" shr-zoom-image "I" shr-insert-image "u" shr-copy-url "v" shr-browse-url "o" shr-save-contents "
"] 4))
#@51 Display the HTML rendering of the current buffer.
(defalias 'shr-render-buffer #[(buffer) "\301\302!\210\303 \210\304rq\210\305ed\")!\210eb\207" [buffer pop-to-buffer "*html*" erase-buffer shr-insert-document libxml-parse-html-region] 4 (#$ . 3258) (list (current-buffer))])
#@64 Parse FILE as an HTML document, and render it in a new buffer.
(defalias 'shr-visit-file #[(file) "\302\303!rq\210\304\216\305	!\210\306p!+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents shr-render-buffer] 2 (#$ . 3540) "fHTML file name: "])
#@139 Render the parsed document DOM into the current buffer.
DOM should be a parse tree as generated by
`libxml-parse-html-region' or similar.
(defalias 'shr-insert-document #[(dom) "\306`\306\211\211	\206\f\307 \310\311!!\210\312
`\"-\207" [shr-content-cache shr-width shr-base shr-start shr-state start nil window-width shr-descend shr-transform-dom shr-remove-trailing-whitespace dom] 5 (#$ . 3903)])
(defalias 'shr-remove-trailing-whitespace #[(start end) "\305 \214	\n}\210	b\210m?\205C\306\210\307i!V\203=\310`!\306\211\203<\f@\311\312\"\2035\313\312\306#\210\fA\211\204%*\314y\210\202*\207" [width start end overlay --dolist-tail-- window-width nil shr-previous-newline-padding-width overlays-at overlay-get before-string overlay-put 1] 5])
#@132 Copy the URL under point to the kill ring.
If called twice, then try to fetch the URL and see whether it
redirects somewhere else.
(defalias 'shr-copy-url #[nil "\303`\304\"\211\204\305\306!\2026	@\232\203\307\310\311\312$\2026\313\314!r\nq\210\315\216c\210\316ed\"\210\305\317\"+)\207" [url kill-ring #1=#:temp-buffer get-text-property shr-url message "No URL under point" url-retrieve #[(a) ":\205:@\303=\205:\304\305!r	q\210\306\216\211A@)c\210eb\210\307\310\311\312#\203/\313\314\312\211#\210\315\316\317 \"\210\320ed\"+\207" [a #2=#:temp-buffer x :redirect generate-new-buffer #3=" *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) re-search-forward ".utm_.*" nil t replace-match "" message "Copied %s" buffer-string copy-region-as-kill] 5] nil t generate-new-buffer #3# ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) copy-region-as-kill "Copied %s"] 6 (#$ . 4678) nil])
#@45 Show the ALT text of the image under point.
(defalias 'shr-show-alt-text #[nil "\301`\302\"\211\204\303\304!\202\303\305\")\207" [text get-text-property shr-alt message "No image under point" "%s"] 4 (#$ . 5651) nil])
#@146 Browse the image under point.
If COPY-URL (the prefix if called interactively) is non-nil, copy
the URL of the image to the kill buffer instead.
(defalias 'shr-browse-image #[(&optional copy-url) "\303`\304\"\211\204\305\306!\2025	\203-\307\310!r\nq\210\311\216c\210\312ed\"\210\305\313\"+\2025\305\314\"\210\315!)\207" [url copy-url #1=#:temp-buffer get-text-property image-url message "No image under point" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) copy-region-as-kill "Copied %s" "Browsing %s..." browse-url] 4 (#$ . 5882) "P"])
#@47 Insert the image under point into the buffer.
(defalias 'shr-insert-image #[nil "\301`\302\"\211\204\303\304!\202 \303\305\"\210\306\307p`S\310 E\311\211%)\207" [url get-text-property image-url message "No image under point" "Inserting %s..." url-retrieve shr-image-fetched point-marker t] 7 (#$ . 6500) nil])
#@116 Toggle the image size.
The size will be rotated between the default size, the original
size, and full-buffer size.
(defalias 'shr-zoom-image #[nil "\304`\305\"\304`\306\"\307\211\204\310\311!\202\304`\305\"\203#\312u\210\202\313u\210`\304`\305\"\2035\313u\210\202(\312u\210\314`\315\307$\210`Z\316V\203L`S|\210)\310\317\n\"\210\320\n\321p`S\322 \301	\323=\204e	\204i\324\202z	\324=\203s\325\202z	\325=\205z\323BCF\326$+\207" [buffer-read-only size url start get-text-property image-url image-size nil message "No image under point" -1 1 put-text-property display 2 "Inserting %s..." url-retrieve shr-image-fetched point-marker default original full t] 10 (#$ . 6823) nil])
(defalias 'shr-transform-dom #[(dom) "\211A@C\211A@\306\211\203,@\307\310\311\n@!P\f\"\nAB	BA\211\204*\306\211\203S@\211;\203F\312
B	B\202L\313
!	BA\211\2045*	\237)\207" [dom result arg --dolist-tail-- obarray sub nil intern ":" symbol-name text shr-transform-dom] 5])
(defalias 'shr-descend #[(dom) "\306\307\310@!P	\"\311A\236A\n`\f\203*\312\313\f\"\203(\314\f!\n\244\202*\315\316
!\2038
A!\210\202=\317A!\210\f\205M\320`\321\n\236A\322\n\236A$,\207" [dom obarray shr-stylesheet start style function intern "shr-tag-" symbol-name :style string-match "color" shr-parse-style nil fboundp shr-generic shr-colorize-region color background-color] 6])
(defalias 'shr-generic #[(cont) "\303\211\205,\n@\211@\304=\203\305	A!\210\202$	A<\203$\306	!\210\nA\211\204\303*\207" [cont sub --dolist-tail-- nil text shr-insert shr-descend] 3])
#@63 Return non-nil if a line can be broken before and after CHAR.
(defalias 'shr-char-breakable-p '(macro . #[(char) "\301\302E\207" [char aref fill-find-break-point-function-table] 3 (#$ . 8412)]))
#@63 Return non-nil if no space is required before and after CHAR.
(defalias 'shr-char-nospace-p '(macro . #[(char) "\301\302E\207" [char aref fill-nospace-between-words-table] 3 (#$ . 8614)]))
#@56 Return non-nil if a line ought not to begin with CHAR.
(defalias 'shr-char-kinsoku-bol-p '(macro . #[(char) "\301\302D\303BB\207" [char aref char-category-set (62)] 3 (#$ . 8810)]))
#@54 Return non-nil if a line ought not to end with CHAR.
(defalias 'shr-char-kinsoku-eol-p '(macro . #[(char) "\301\302D\303BB\207" [char aref char-category-set (60)] 3 (#$ . 8999)]))
(byte-code "\300\301\302\303\304#!\305H\204\306\307\310\311#\210\310\207" [char-category-set make-char japanese-jisx0208 33 35 62 load "kinsoku" nil t] 5)
(defalias 'shr-insert #[(text) "\306=\203n\204\307\310	\"\204\311c\210\312\n\313=\203	c\207\307\314	\"\2035n\2045`Sf\315=\2045\316c\210\317	\320\321#\312\211\203\351\f@n\203Q
\322V\203Q\323 \210\312i
V\203\223h\315=\203\223\324 `SU\204\217`\325Zf\211H\203~\326!\327H\204\217H\203\223\322HH\203\223\330\331!\210) \204\234` c\210\312\211!i\"V\203\336\332 !l\204\336h\315=\203\275\330\331!\210\311c\210!\204\317g\315=\203\317\330\333!\210
\322V\203\330\323 \210\312\210\202\244\316c\210)\fA\211\204A*\307\334	\"?\205\365\330\331!\207" [shr-state text shr-folding-mode elem --dolist-tail-- shr-indentation image string-match "\\`[ 	\n]+\\'" "\n" nil none "\\`[ 	\n ]" 32 " " split-string "[ \f	\n
 ]+" t 0 shr-indent line-beginning-position 2 char-category-set 62 delete-char -1 shr-find-fill-point 1 "[ 	
\n ]\\'" prev fill-find-break-point-function-table fill-nospace-between-words-table shr-start found shr-width] 5])
(defalias 'shr-find-fill-point #[nil "\306!V\203\307u\210`\310iU\211\204gh\311=\204gg\311=\204g\fhH\204g\fgH\204gh\312=\203B`\313Zf\310\314\311E>?\202V\315h!\316H\203Y\fgH\203Y\315g!\316H?\204g\315g!\317H\204g\307u\210\202	\204\225l\204\225h\312=\203\225l\211\204\225g\311=\204\225\fgH\204\225\315g!\317H\204\225\320u\210\202u	\203\305\310\nb\210\204\301\321\322\323 \324#\211\203\264h\312=\204\243
\203\301\320\224\204\301\325\224b\210)\202\210
l\204\210
\203
h\325\314\311E>\204\345\315h!\317H\203\345\307u\210\202\316iU\211\203
\320u\210iX\203
`\315g!\317H\204\355\nb\202|
\315h!\317H\203Q
\326\307u\210S\211\325V\2037
h\325\314\311E>\2047
\315h!\317H\204
\315g!\316H\204
)iU\211\203
\327\330!\203L
\320\225b\202|
\320u\202|
\315g!\316H\203
\326\320u\210S\211\325Y\205{
\315g!\316H\205{
\fgH\205{
\202\\
)\204\210
g\311=\203\210
\320u\210	*?\207" [shr-width failed bp shr-indentation fill-find-break-point-function-table found move-to-column -1 nil 32 39 2 10 char-category-set 62 60 1 re-search-forward "\\(\\c>\\)\\| \\|\\c<\\|\\c|" line-end-position move 0 4 looking-at "\\(\\c<+\\)\\c<" shr-kinsoku-shorten count] 4])
(defalias 'shr-expand-url #[(url) "\203\302\303\"\204	\204\207\302\304\"\203&\302\303	\"\203&\305\306	\"P\207\302\307	\"\2049\302\310\"\2049	\311Q\207	P\207" [url shr-base string-match "\\`[a-z]*:" "\\`//" match-string 0 "/\\'" "\\`/" "/"] 3])
(defalias 'shr-ensure-newline #[nil "\300i!?\205	\301c\207" [zerop "\n"] 2])
(defalias 'shr-ensure-paragraph #[nil "o?\205-iX\203\212\301y\210\302\303!)?\205-\304c\207\212\305 \210\302\303!)\203+\306\224\306\225|\207\307c\207" [shr-indentation -1 looking-at " *$" "\n" beginning-of-line 0 "\n\n"] 2])
(defalias 'shr-indent #[nil "\301V\205\302\303\"c\207" [shr-indentation 0 make-string 32] 3])
(defalias 'shr-fontize-cont #[(cont &rest types) "\305\306	!\210\n\305\211\205#\f@\307\206``#\210\fA\211\204\305+\207" [shr-start cont types type --dolist-tail-- nil shr-generic shr-add-font] 5])
(defalias 'shr-add-font #[(start end type) "\212b\210`	W\2054n\203\304\305w\210\306`\307 	^\"\310\n\311#\210)\307 	W\203.\312y\210\202	b\210\202)\207" [start end overlay type " " nil make-overlay line-end-position overlay-put face 1] 4])
#@29 Browse the URL under point.
(defalias 'shr-browse-url #[nil "\301`\302\"\211\204\303\304!\202\305\306\"\203\307!\202\310!)\207" [url get-text-property shr-url message "No link under point" string-match "^mailto:" browse-url-mail browse-url] 4 (#$ . 12646) nil])
#@39 Save the contents from URL in a file.
(defalias 'shr-save-contents #[(directory) "\302`\303\"\211\204\304\305!\202\306\307!\310	D\311\312%)\207" [url directory get-text-property shr-url message "No link under point" url-retrieve shr-encode-url shr-store-contents nil t] 7 (#$ . 12926) "DSave contents of URL to directory: "])
(defalias 'shr-store-contents #[(status url directory) "\303\304\"?\205\"\305\306\307\310#\204\305\311\307\310#\205\"\312`d\313\314	!\n\"#\207" [status url directory plist-get :error search-forward "\n\n" nil t "
\n
\n" write-region expand-file-name file-name-nondirectory] 6])
(defalias 'shr-image-fetched #[(status buffer start end &optional flags) "p\306	!\203u\307\n\310\"\204u\311!\210\312\313\314\315#\204#\312\316\314\315#\203u`d{r	q\210\212\f
{\317\f!\315\f
|\210\fb\210#\210\203s\211A@\211A@\211\320>\204o\321\f`$\210*\202I.\322!)\207" [image-buffer buffer status data start end buffer-name plist-get :error url-store-in-cache search-forward "\n\n" nil t "
\n
\n" text-properties-at (display image-size) put-text-property kill-buffer inhibit-read-only properties alt shr-put-image-function flags value type] 6])
#@50 Put image DATA with a string ALT.  Return image.
(defalias 'shr-put-image #[(data alt &optional flags) "\306 \203\237\301\236A`	\307=\203\310\311\312\313\314%\202-	\315=\203)\311\316\317\217\202-\311\320\321\217\211\203\234i\322V\203E\323\f\312\"@\324V\203E\325c\210	\307=\203\326`!\327\f#\206W\330\311\331\332%\210
\311$\211%\203{%@$\333$\334\335#\210%A\211%\204f+\202\211\336\f#\206\207\330\"\210\337\n`\323	$\210\340\f!\203\234\341\f\311\342#\210\f+\207#c\207" [flags size start data image overlays display-graphic-p original create-image nil t :ascent 100 full (shr-rescale-image data t) ((error)) (shr-rescale-image data) ((error)) 0 image-size 400 "\n" overlays-at insert-sliced-image "*" 20 1 overlay-put face default insert-image put-text-property image-animated-p image-animate 60 alt overlay --dolist-tail--] 7 (#$ . 14134)])
#@90 Rescale DATA, if too big, to fit the current buffer.
If FORCE, rescale the image anyway.
(defalias 'shr-rescale-image #[(data &optional force) "\306\307\310\311\312%\313\314!\203\315p!\204	\202\203\316	\310\"\211@\nA\317\315p!!\320\321
8
@Z_!\320\322
8
A@Z_!\307\204S\fV\203h\306\323\310\324\311\312&\206b	\316	\310\"\n@V\203\200\306\323\310\325\311\312&\206		.)\207" [data image size width height edges create-image nil t :ascent 100 fboundp imagemagick-types get-buffer-window image-size window-inside-pixel-edges truncate 2 3 imagemagick :height :width shr-max-image-proportion window-width window-height scaled-image force] 9 (#$ . 15009)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload mm-disable-multibyte "mm-util" browse-url-mail "browse-url"] 3)
#@58 Get image data for URL.
Return a string with image data.
(defalias 'shr-get-image-data #[(url) "\301\302!rq\210\303\216\304 \210\305\306\307\217\205'\310\311\305\312#\204$\310\313\305\312#\205'`d{+\207" [#1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte nil (byte-code "\301\302\303!!!\210\304\207" [url url-cache-extract url-cache-create-filename shr-encode-url t] 4) ((error)) search-forward "\n\n" t "
\n
\n"] 4 (#$ . 15829)])
#@243 Return a function to display an image.
CONTENT-FUNCTION is a function to retrieve an image for a cid url that
is an argument.  The function to be returned takes three arguments URL,
START, and END.  Note that START and END should be markers.
(defalias 'shr-image-displayer #[(content-function) "\301\302\303\304\305\306\205\307\310\311\312BBDC\313BB\314BBBEE\207" [content-function lambda (url start end) when url if (string-match "\\`cid:" url) let image funcall ((substring url (match-end 0))) ((when image (goto-char start) (funcall shr-put-image-function image (buffer-substring start end)) (delete-region (point) end))) ((url-retrieve url 'shr-image-fetched (list (current-buffer) start end) t t))] 11 (#$ . 16370)])
(defalias 'shr-heading #[(cont &rest types) "\302 \210\303\304	#\210\302 \207" [cont types shr-ensure-paragraph apply shr-fontize-cont] 4])
(autoload 'widget-convert-button "wid-edit")
(defalias 'shr-urlify #[(start url &optional title) "\304\305`\306	\203\307\310\n	#\202\n\311\n&\210\312`\313#\210\314`\315\n$\207" [start title url shr-map widget-convert-button url-link :help-echo format "%s (%s)" :keymap shr-add-font shr-link put-text-property shr-url] 9])
#@13 Encode URL.
(defalias 'shr-encode-url #[(url) "\301\302\"\207" [url browse-url-url-encode-chars "[)$ ]"] 3 (#$ . 17574)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload shr-color-visible "shr-color" shr-color->hexadecimal] 3)
#@166 Check that FG is visible on BG.
Returns (fg bg) with corrected values.
Returns nil if the colors that would be used are the default
ones, in case fg and bg are nil.
(defalias 'shr-color-check #[(fg bg) "\204	\205\\\204\300\202	?\205\301\304!\206!\305\306\307\"\304	!\206+\305\306\310\"\n\301=\203B\306\311	\312#\211A@)D\202[\n\300=\203W\311	\312#\211A@)\306D\202[\311	\"+\207" [fg bg fixed x shr-color->hexadecimal frame-parameter nil foreground-color background-color shr-color-visible t] 6 (#$ . 17821)])
(defalias 'shr-colorize-region #[(start end fg &optional bg) "\204	\205/\306	\"\211\203-\203!\307\f\310\n\211A@)$\210	\203-\307\f\311\n@$\210\n)\207" [fg bg new-colors start end x shr-color-check shr-put-color :foreground :background] 6])
(defalias 'shr-put-color #[(start end type color) "\212b\210`	W\203<n\203\n\305=\204\306\307w\210\310 `V\203)\311`\310 	^\n$\210\310 	W\2036\312y\210\202	b\210\202\n\305=\205M\f\313U\205M\314	#)\207" [start end type color shr-table-depth :background " " nil line-end-position shr-put-color-1 1 0 shr-expand-newlines] 5])
(defalias 'shr-expand-newlines #[(start end color) "\214b\210\306\307w\210\310 \210`	b\210\306\307x\210\311y\210`	}\210\312 \307eb\210m?\205e\307\210i\211W\203_\313\n!\211W\203_\314``T\"\315\f\316\317\320\321`!\322#\323\324\nZ\325\"\326\327
D#P#\210)\311y\210\202%+\207" [start end column width overlay color " 	\n" nil beginning-of-line 1 shr-buffer-width shr-previous-newline-padding-width make-overlay overlay-put before-string mapconcat #[(overlay) "\302\303!\304\"\211\204\305\202\306\304\305#\210	)\207" [overlay string plist-get overlay-properties before-string #1="" overlay-put] 5] overlays-at #1# propertize make-string 32 face :background] 9])
(defalias 'shr-previous-newline-padding-width #[(width) "\305`!\306\211\204\n\202.	\307\211\203*\f@\310\311!\312\"G\\\fA\211\204*\n\\*\207" [previous-width overlays width overlay --dolist-tail-- overlays-at 0 nil plist-get overlay-properties before-string] 5])
(defalias 'shr-put-color-1 #[(start end type color) "\306\307\"\211<\205\n	>?\310
W\203C\311\307\310
$\203.\312\f\307\nD	\244$\210\306\f\307\"\211<\205<\n	>?\f\211\202\205W
V\205W\312
\307\n	E$+\207" [start old-props type do-put change end get-text-property face nil next-single-property-change put-text-property color] 8])
(defalias 'shr-tag-body #[(cont) "`\305	\236\206\306	\236A\307	\236A\310\nB\311BD\312	!\210\313`\n$,\207" [start cont fgcolor bgcolor shr-stylesheet :fgcolor :text :bgcolor color background-color shr-generic shr-colorize-region] 5])
(defalias 'shr-tag-style #[(cont) "\300\207" [nil] 1])
(defalias 'shr-tag-script #[(cont) "\300\207" [nil] 1])
(defalias 'shr-tag-comment #[(cont) "\300\207" [nil] 1])
(defalias 'shr-tag-sup #[(cont) "`\302	!\210\303`\304\305$)\207" [start cont shr-generic put-text-property display (raise 0.5)] 5])
(defalias 'shr-tag-sub #[(cont) "`\302	!\210\303`\304\305$)\207" [start cont shr-generic put-text-property display (raise -0.5)] 5])
(defalias 'shr-tag-label #[(cont) "\301!\210\302 \207" [cont shr-generic shr-ensure-paragraph] 2])
(defalias 'shr-tag-p #[(cont) "\301 \210\302 \210\303!\210\301 \207" [cont shr-ensure-paragraph shr-indent shr-generic] 2])
(defalias 'shr-tag-div #[(cont) "\301 \210\302 \210\303!\210\301 \207" [cont shr-ensure-newline shr-indent shr-generic] 2])
(defalias 'shr-tag-s #[(cont) "\301\302\"\207" [cont shr-fontize-cont shr-strike-through] 3])
(defalias 'shr-tag-del #[(cont) "\301\302\"\207" [cont shr-fontize-cont shr-strike-through] 3])
(defalias 'shr-tag-b #[(cont) "\301\302\"\207" [cont shr-fontize-cont bold] 3])
(defalias 'shr-tag-i #[(cont) "\301\302\"\207" [cont shr-fontize-cont italic] 3])
(defalias 'shr-tag-em #[(cont) "\301\302\"\207" [cont shr-fontize-cont italic] 3])
(defalias 'shr-tag-strong #[(cont) "\301\302\"\207" [cont shr-fontize-cont bold] 3])
(defalias 'shr-tag-u #[(cont) "\301\302\"\207" [cont shr-fontize-cont underline] 3])
(defalias 'shr-parse-style #[(style) "\205z\306 \307\216\310\311\"\203\312\313\314\211$*\315\316\317\"\315\211\203w\f@\211\203p\316\320\"\211@\203p\211A@)\203p\321\322\323@#\321\322\323\211A@)#\310\324\"\203c\325\211\224O\326\"B\nB*\fA\211\204%*\n)\207" [style save-match-data-internal plist elem --dolist-tail-- x match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\n" replace-match " " t nil split-string ";" ":" replace-regexp-in-string "^ +\\| +$" "" " *!important\\'" 0 intern value name obarray] 6])
(defalias 'shr-tag-base #[(cont) "\302\236A\211\207" [cont shr-base :href] 2])
(defalias 'shr-tag-a #[(cont) "\305\236A\306\236A`\307\310!\210\311	\206\n\312\f!#,\207" [cont shr-start start title url :href :title nil shr-generic shr-urlify shr-expand-url] 4])
(defalias 'shr-tag-object #[(cont) "`\305\n\305\211\203B\f@\211@\306=\203 \206\307A\236A@\310=\203;\311A\236A\312\232\203;\206:\313A\236A\fA\211\204\f*\203R\314\315!\210\316	\317!\"\210\320\n!*\207" [url start cont elem --dolist-tail-- nil embed :src param :name "movie" :value shr-insert " [multimedia] " shr-urlify shr-expand-url shr-generic] 5])
(defalias 'shr-tag-video #[(cont) "\304\236A\305\236A`\306\307\"\210\310	\311\n!\"+\207" [cont start url image :poster :src shr-tag-img nil shr-urlify shr-expand-url] 4])
(defalias 'shr-tag-img #[(cont &optional url) "\204	\2052
\306	\236A\2052
i\307V\203\n\310=\204\311c\210\312	\236A\313\206+\306	\236A!\314 \315G!\203:\316\317	\236A\320\235\204
\321	\236A\322\235\204

\204\200\323\324\"\203\200\307\225\325O\325-\203o-!\211\204uc\210\202|.\"\210*\202

\204\221/\203\260\323/\"\203\260`0\326\327!\330V\203\250\331\332\330\"!\210\202\254\331!\210)\202
1\204\310\333\334!!\203\310.\335!\"\210\202
\336\261\2101\203\356\333\334!!\203\356\337\334!!2\3402!\203\355\3412!\210)\342\334!\343p\f\344 `S\325\223E\345\211%\210\3153!\203.
\346\f`\3474$\210\346\f`\350$\210\346\f`\351$\210\346\f`\352\353-!$\210\346\f`\354$\210\310\211+\207" [url cont shr-state alt start shr-inhibit-images :src 0 image "\n" :alt shr-expand-url point-marker zerop "*" :height ("0" "1") :width ("0" "1") string-match "\\`cid:" nil space string-width 8 shr-insert truncate-string-to-width url-is-cached shr-encode-url shr-get-image-data " " url-cache-create-filename file-exists-p delete-file url-queue-retrieve shr-image-fetched make-marker t put-text-property keymap shr-alt image-url image-displayer shr-image-displayer help-echo shr-content-function shr-put-image-function shr-blocked-images shr-start shr-ignore-cache file shr-table-depth shr-map] 8])
(defalias 'shr-tag-pre #[(cont) "\302\303 \210\304 \210\305	!\210\303 )\207" [shr-folding-mode cont none shr-ensure-newline shr-indent shr-generic] 2])
(defalias 'shr-tag-blockquote #[(cont) "\302 \210\303 \210\304\\\305	!\210)\302 \207" [shr-indentation cont shr-ensure-paragraph shr-indent 4 shr-generic] 2])
(defalias 'shr-tag-ul #[(cont) "\302 \210\303\304	!\210)\302 \207" [shr-list-mode cont shr-ensure-paragraph ul shr-generic] 2])
(defalias 'shr-tag-ol #[(cont) "\302 \210\303\304	!\210)\302 \207" [shr-list-mode cont shr-ensure-paragraph 1 shr-generic] 2])
(defalias 'shr-tag-li #[(cont) "\304 \210\305 \210\247\203\306\307\"T\202\310\n	G\\	c\210\311!*\207" [shr-list-mode bullet shr-indentation cont shr-ensure-paragraph shr-indent format "%d " "* " shr-generic] 3])
(defalias 'shr-tag-br #[(cont) "o\204n\203`\301ZeV\203`\301Zf\302U\204\303c\210\304 \210\305!\207" [cont 2 10 "\n" shr-indent shr-generic] 2])
(defalias 'shr-tag-h1 #[(cont) "\301\302\303#\207" [cont shr-heading bold underline] 4])
(defalias 'shr-tag-h2 #[(cont) "\301\302\"\207" [cont shr-heading bold] 3])
(defalias 'shr-tag-h3 #[(cont) "\301\302\"\207" [cont shr-heading italic] 3])
(defalias 'shr-tag-h4 #[(cont) "\301!\207" [cont shr-heading] 2])
(defalias 'shr-tag-h5 #[(cont) "\301!\207" [cont shr-heading] 2])
(defalias 'shr-tag-h6 #[(cont) "\301!\207" [cont shr-heading] 2])
(defalias 'shr-tag-hr #[(cont) "\302 \210\303	\"\304\261\207" [shr-width shr-hr-line shr-ensure-newline make-string "\n"] 3])
(defalias 'shr-tag-title #[(cont) "\301\302\303#\207" [cont shr-heading bold underline] 4])
(defalias 'shr-tag-font #[(cont) "`\304	\236A\302\nBC\244\305	!\210\n\205\306`\n\307\236A$+\207" [start cont color shr-stylesheet :color shr-generic shr-colorize-region background-color] 6])
(defalias 'shr-tag-table-1 #[(cont) "\306\236A\206\307\nT\307\310!\311\f!\312
\"\312\313\fG\314\"\"\315
#\316\317\320\321T\211GW\203^HT\\\202?, \322#\323 V\203n\307!\324\312\307#\"\210.\325\n!\205\244\326\327\"\320\"\211#\205\243#@\"\330\"A!\210#A\211#\204\216\320*\207" [cont shr-inhibit-images shr-table-depth shr-kinsoku-shorten columns suggested-widths tbody t shr-column-specs shr-pro-rate-columns shr-make-table make-vector 500 shr-table-widths + -1 nil 0 1 frame-width shr-insert-table zerop shr-find-elements img shr-tag-img sketch natural sketch-widths #1=#:--cl-vec-- #2=#:--cl-idx-- width #3=#:--cl-var-- shr-indentation truncate-lines elem --dolist-tail--] 6])
(defalias 'shr-tag-table #[(cont) "\306 \210\301\236A\307\236A\310\236A\206\311\236A\312\236A`\313
BC\244\n\2053\314\n!\205<\314!\f\205E\314\f!	\204h\n\204h\310\236A\204h\315\236A\204h\f\204h\316!\210\202\241
\317	\205s\315\320	BDC\n\203M
\f\203
U\203\302U\203\234\315\320\321\310\322\n\f#BDDDC\202\236
\315\320\321\310\322\n\"BDDDC\323U\203\264\f\202\276\315\320\321\310\fBDDDC\244\202\236
\315\320\321\310\nBDDDCU\203\344\315\320\321\310\322\f\"BDDDC\202
\315\320\321\310BDDDC\323U\203\371\f\202
\315\320\321\310\fBDDDC\244\244\202\236
U\203 
\315\320\321\310\322\n\"BDDDC\202\236
\323U\2037
\322\n\315\320\321\310BDDDC\"\202\236
\315\320\321\310\nBDDD\315\320\321\310BDDDD\202\236
\f\203\214
U\203i
\315\320\321\310\322\f\"BDDDC\202\236
\315\320\321\310BDDDC\323U\203~
\f\202\210
\315\320\321\310\fBDDDC\244\202\236
	\203\235
\315\320\321\310BDDDC\202\236
\244!\210
\205\260
\324`\325\236A
$.\n\207" [cont caption header body footer bgcolor shr-ensure-paragraph thead tbody tfoot :bgcolor background-color shr-max-columns tr shr-generic shr-tag-table-1 td table append 1 shr-colorize-region color start shr-stylesheet nheader nbody nfooter] 10])
(defalias 'shr-find-elements #[(cont type) "\305	\305\211\2030@\211@\f=\203\nB\202)\nA:\203)\306\nA\f\"\244A\211\204\n*\237)\207" [result cont elem --dolist-tail-- type nil shr-find-elements] 4])
(defalias 'shr-insert-table #[(table widths) "\306!\210	\307\211\205F
@`\310\n\307\211\203.@\f
\211A@)]A\211\204*\f)\310W\203V\311 \210\312\261\210T\211\202>*\n\307\211\2039
@b\210\313
8\314
8\307\211\211 \307!\211\203\353@!\211A@\307\210!\261\210\307\211\203\340@\315\316`@\317#\316`A@\317#\"\3138\"#\"\203\330\320#\"\211A\"@\"\211A\"@#\210\202\275*A\211\204\240*\317y\210A\211\204* GZ\310W\2030
\307\210`\321\322 @!\323\"\261\210\324
8\203#
\325`S\326\324
8$\210)\317y\210T\211\202\371.A\211\204_,\306!\210A\211\204\f\307*\207" [widths table row --dolist-tail-- max column shr-insert-table-ruler nil 0 shr-indent "\n" 2 3 make-overlay - 1 overlay-put make-string string-width 32 4 shr-put-color :background x height start i --dotimes-limit-- shr-table-vertical-line overlay-line overlay overlay-lines lines line properties o] 7])
(defalias 'shr-insert-table-ruler #[(widths) "n\203
\306V\203
\307 \210	c\210\nG\306\fW\203,\310\nH
\"	\261\210T\211\202*\311c\207" [shr-indentation shr-table-corner widths i --dotimes-limit-- shr-table-horizontal-line 0 shr-indent make-string "\n"] 4])
(defalias 'shr-table-widths #[(table natural-table suggested-widths) "G\306	\307\"\306	\307\"\f\310\211\f\203P\f@\307

\310\211\f\203F\f@\n
\n
H]I\210
T
\fA\211\f\204'+\fA\211\f\204*\310\211\f\203\225\f@\307

\310\211\f\203\213\f@

H]I\210
T
\fA\211\f\204l+\fA\211\f\204[*\311\312\313\310\"\"\311\312\313\n\310\"\"Z\307\211\307V\203
	\307

W\203\330
H\n
HV\203\317T
T\211
\202\270*	\307

W\203

H\n
HV\203
\n

H\245\n
H\\^I\210
T\211
\202\341**\n+\207" [suggested-widths length widths natural-widths table row make-vector 0 nil apply + append --dolist-tail-- i column natural-table expanded-columns extra --dotimes-limit--] 7])
(defalias 'shr-make-table #[(cont widths &optional fill) "\306	\306\211\203^@\211@\307=\203W\306\nA\310\306\f

GW\203P\211A@\211@\311>\204:\f\204\312\fA

H#\fB\f
T\211\202 \f\237B,A\211\204\n*\237)\207" [trs cont row --dolist-tail-- column i nil tr 0 (td th) shr-render-td columns tds widths fill] 5])
(defalias 'shr-render-td #[(cont width fill) "\306\307!rq\210\310\216\311	\236A\312	\236A\313	\236A\n\314\211'(
\2030\315\316
\"\205/\317
!(\203=\320(BC
\244'\203J\321'BC
\244
\203S\322
\n\"\323)	B*\"A\211+\203\305+@c\210+@G,+\211-A@)\314.\211/\203\301/@.\324,.@ZT,.A@ZT\"\325.8010\203\267\32610\211A0@0\211A0@#\210\202\234*/A\211/\204~+\202\356)\32723\330\331	B!\210*`\332\314x\210\314\210`|\210)	B\333 \334ed\"E*B*)eb\210\3274m\204
\314\2104i]4\335y\210\202\3655\203Q
eb\210\336\337 !\203!
\340)\341\"c\210\202@
m\204@
\314\210)iZ\327V\203:
\340)iZ\341\"c\210\335y\210\202!

\203Q
\342ed\321\n\236A\320\n\236A$5\203j
4\343ed\"\344\333 \345\"\346 @\257\202l
4.\n\207" [#1=#:temp-buffer cont shr-stylesheet actual-colors overlays style generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) :bgcolor :fgcolor :style nil string-match "color" shr-parse-style background-color color append assoc make-overlay 2 overlay-put 0 shr-descend td " 	\n" buffer-string shr-overlays-in-region 1 zerop buffer-size make-string 32 shr-colorize-region count-lines split-string "\n" shr-collect-overlays fgcolor bgcolor width shr-content-cache cache end x overlay --dolist-tail-- properties new-overlay shr-indentation shr-width max fill] 7])
(defalias 'shr-buffer-width #[nil "eb\210\301m\204\302\210i]\303y\210\202)\207" [max 0 nil 1] 2])
(defalias 'shr-collect-overlays #[nil "\212eb\210\301m\204\302`\303 \"B\304y\210\202\237*\207" [overlays nil shr-overlays-in-region line-end-position 1] 3])
(defalias 'shr-overlays-in-region #[(start end) "\305\306	\n\"\305\211\203B\f@	\307!V\203\n	Z\202#\n\307!Z\n\310!W\203/\311\2024\n\310!Z\312!EB\fA\211\204
*\237)\207" [result start end overlay --dolist-tail-- nil overlays-in overlay-start overlay-end 0 overlay-properties] 5])
(defalias 'shr-pro-rate-columns #[(columns) "\306\307G\306\"G\306\fW\203 \nH\\T\211\202*\310\n\245G\306\fW\203J	\311\312H\n
GTZ#!\313]I\210T\211\202+*	*\207" [columns widths total-percentage i --dotimes-limit-- shr-width 0 make-vector 1.0 truncate * 10] 9])
(defalias 'shr-column-specs #[(cont) "\306\307!\310\"\311\211\203k@\211@\312=\203d\313\nA\311\211\203c@\211@\314>\203\\\315
A\236A\211\203X\316\317\"\203X\320\321\322\310\"!\211!\204X	\f\323\245I\210)\fTA\211\204$+A\211\204*	)\207" [cont columns row --dolist-tail-- i column make-vector shr-max-columns 1 nil tr 0 (td th) :width string-match "\\([0-9]+\\)%" zerop string-to-number match-string 100.0 width] 6])
(defalias 'shr-count #[(cont elem) "\305	\306\211\203@\211@\f=\203TA\211\204\n*)\207" [i cont sub --dolist-tail-- elem 0 nil] 3])
(defalias 'shr-max-columns #[(cont) "\304	\305\211\203)@\211@\306=\203\"\307\nA\310\"\307\nA\311\"\\]A\211\204\n*)\207" [max cont row --dolist-tail-- 0 nil tr shr-count td th] 6])
(provide 'shr)