Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : gnus-html.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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] button-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 nil t] 5 (#$ . 2168)])
(defalias 'gnus-article-html #[(&optional handle) "p	\204\n�\306\307!\214``}\210\212	\211@\203\247�\310	@!\203\247�\311\312!r\nq\210\313\216\314 \210\315	@!\210\316\317	8	\211@;\203B�\211@\262\202H�\211A@@\262\"\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\202�eb\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\307B!\203.�rBq\210C\310 )\2024�C\310 eb\210\311\312\306\313#\205\234\314\315!@\316\224\211!`|\210\317\320\321 \313#\203[�\316\224\316\225|\210`\322\323@\"\2037�\324\325\326#\210\327\314\315@\"!\322\330@\"\205\202�\331\314\332@\"!\333!
\334\335\336\337\340\303\341\305\n\257E\342\n\343\313\344D\345!
\nF\257\f#\210\322\346\"\203<\347\350\316\225\"!\211E\205		?\205	\351E\211E@\205\352E@!\205\353\354!FrFq\210\355\216\356 \210\357E@!\210\360\332E8E\211@;\203\372�\211@\262\202�\211A@@\262\"\210\361 +)\306\313#\211G\203,\362\363\364\365G\366 \"\367!
{!
|\210\370D!\363#\"\210\2028\371!
\342\344D&\210*\2027�	\204G\372\"\203V\371!
\342\344D&\210\2027�\322\373@\"\205e\374\314\315@\"!\322\375@\"\205t\374\314\315@\"!HIH\203\204H\376V\203\230I\203\220I\376V\203\230\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 help-echo button keymap gnus-image "\\`cid:" mm-get-content-id substring 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 "*" make-text-button gnus-html-image-url-blocked-p "width=\"?\$[0-9]+\$" string-to-number "height=\"?\$[0-9]+\$" 4 string parameters tag gnus-summary-buffer gnus-inhibit-images gnus-html-image-map handle #1# image height width] 19 (#$ . 3912)])
#@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	\312\225\"!\211\205[�\313\n\211@\205W�\314\n@!\205W�\315\316!rq\210\317\216\320 \210\321\n@!\210\322\323\n8\n\211@;\203L�\211@\262\202R�\211A@@\262\"\210\324 +)	#)\207\325	\f\"\203k�\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 substring 0 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] 6 (#$ . 6070)])
(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\201D�U\203\270\372c\210\202\350C\201E�U\203\307\372c\210\202\350C\201F�U\203\326\372c\210\202\350C\201G�U\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 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 (#$ . 9108) 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 (#$ . 9312) 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 (#$ . 9498) 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 (#$ . 9658) 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 (#$ . 9949)])
#@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 (#$ . 10266)])
#@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 (#$ . 10746)])
#@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 (#$ . 11195)])
#@56 Put an image with DATA from URL and optional ALT-TEXT.
(defalias 'gnus-html-put-image #[(data url &optional alt-text) "\306 \205\311�\307ed\310$\211\205�\311	\310\"	\205\310�\3121&�\313\314\315#0\202(�\210\314\211\2051�\316\f\315\"\212	b\210'\206?�\317	\n\"\315('\f\203\254�\f<\203e�\320\fA\321\"\322=\203e�
@\323U\203e�
A\323U\204\254�\324\f\325 \"	\n|\210\326\f'\327#\210\330	`\331'\332)&\210\333	`\334'$\210\203\242�\335	`\310\336\337\340\341\300\301\302'\257EF#\210\342\327\f\"\210)\315\202\307�\343\344!\203\306�	\n|\210\344\345!\326\f'\346#\210\342\346\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 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 gnus-add-image fboundp find-image ((:type xpm :file "lock-broken.xpm")) internal alt-text inhibit-read-only gnus-html-displayed-image-map] 14 (#$ . 11487)])
#@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 (#$ . 12673)])
(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)

${this.title}

Code Editor : gnus-html.elc