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-picon.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\303\304\305\306\307\310\311\312&\210\303\313\314\315\307\316\311\312&\210\303\317\320\321\307\322\311\312&\210\303\323\324\325\307\326\311\312&\210\303\327\330\331\307\332\333\334\311\312&	\210\303\335\336\337\307\340\311\312&\210\303\341\342\343\333\344\307\345\311\312&	\207" [require gnus gnus-art custom-declare-variable gnus-picon-news-directories '("news") "List of directories to search for newsgroups faces." :type (repeat string) :group gnus-picon gnus-picon-user-directories '("users" "usenix" "local" "misc") "List of directories to search for user faces." (repeat string) gnus-picon-domain-directories '("domains") "List of directories to search for domain faces.\nSome people may want to add \"unknown\" to this list." (repeat string) gnus-picon-file-types (let ((types (list "xbm"))) (when (gnus-image-type-available-p 'gif) (push "gif" types)) (when (gnus-image-type-available-p 'xpm) (push "xpm" types)) types) "List of suffixes on picon file names to try." (repeat string) gnus-picon-properties '(:color-symbols (("None" . "white"))) "List of image properties applied to picons." plist :version "24.3" gnus-picon-style 'inline "How should picons be displayed.\nIf `inline', the textual representation is replaced.  If `right', picons are\nadded right to the textual representation." (choice (const inline) (const right)) gnus-picon-inhibit-top-level-domains t "If non-nil, don't piconify top-level domains.\nThese are often not very interesting." "24.1" boolean] 10)
#@91 Picon glyphs cache.
List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.
(defvar gnus-picon-glyph-alist nil (#$ . 1936))
(defvar gnus-picon-cache nil)
(defalias 'gnus-picon-split-address #[(address) "\301\302\"\211A@;\203�@\301A@\303\"B\207@;\205!�\301@\303\"\207" [address split-string "@" "\\."] 5])
(put 'gnus-picon-split-address 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-picon-find-face #[(address directories &optional exact) "\306\307\"\211A@;\203�@\306A@\310\"B\202%�@;\205%�\306@\310\")\211\211A\242\311\211\311\211\311\3122\304�\311\211\205\302�@\311\211\203\267�@\n\313\f\"\203\226�\314\315\316\317\320!\315#\315	\227\315\260!\211\203\203�\321\312
\"\210\203\216�\311\211\202d�\211A\210\202c�\f\322\230\204\256�\314\323	\315R!\211\203\256�\321\312
\"\210A\211\204W�*A\211\204I�\311*0.\207" [address user faddress database directory result split-string "@" "\\." nil found expand-file-name gnus-picon-find-image "/" mapconcat downcase reverse throw "news" "/MISC/" instance base gnus-picon-databases --dolist-tail-- directories exact] 8])
(defalias 'gnus-picon-find-image #[(directory) "\306\211\211\204#�\f\211A\242\211\203#�\307
\310\nQ\211!\211\203\f�\205(�	,\207" [gnus-picon-file-types file type found types directory nil file-exists-p "face."] 5])
#@121 Insert GLYPH into the buffer.
GLYPH can be either a glyph or a string.  When NOSTRING, no textual
replacement is added.
(defalias 'gnus-picon-insert-glyph #[(glyph category &optional nostring) ";\203�c\207\303	!\210\304	@\"\210\305@\n?\205�A	#\207" [glyph category nostring gnus-add-wash-type gnus-add-image gnus-put-image] 4 (#$ . 3324)])
(defalias 'gnus-picon-create-glyph #[(file) "\303	\"A\206�\304\305\306\211\n%B	B\211@A\207" [file gnus-picon-glyph-alist gnus-picon-properties assoc apply gnus-create-image nil] 7])
(defalias 'gnus-picon-transform-address #[(header category) "rq\210\214\306\211\211\307 \210\310\3111 �\312\313\f!\206�\314!0\202$�\210\202'�\206*�\313\f!!\315\211\211\211\211-./0\2111\3152\2113\205\3353@\2112@\2112;\203\32322\3162\317\"\2112A@;\203s�2@\3162A@\320\"B\202\200�2@;\205\200�\3162@\320\")\2110\203\323\32124\"A\211-\203\233�-0\202!\32225\"\206\261�\322\323\324\3250A\326#P5\"\211/\203\303�0\327/!0@B\240\2100G6\203\317�\330\202\320�\331Z\3327878W\203\322\323\324\3257T0\233\326#P9\306#\211/\2037T0\233\327/!7T08B\240\2107T\2117\202\330�*0\237020B4B4\333\f!\210\334 \210:\335\267\202\3231G\331U\203\323\336\337\340\3410\"\"\211\332V\203Z\342 b\210\343\344\345\346\347\350\351 \331
#DB#c\210\342 b\210\342 .0\315;\2113\203\2143@\211;;\204\203.b\210\352;<\353#\2103A\2113\204m*\202\323\3542\315\306#\203\323\332\224\332\225|\210`.0\203\323.b\2100G\330V\203\271\326c\210\202\3040G\330U\203\304\317c\210\3520\211A0\242<\"\210\202\2423A\2113\204E�\315.
\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only header len t article-narrow-to-head mail-header-parse-addresses (error) mail-encode-encoded-word-string mail-fetch-field "" nil split-string "@" "\\." assoc gnus-picon-find-face "unknown@" mapconcat identity "." gnus-picon-create-glyph 2 1 0 gnus-article-goto-header mail-header-narrow-to-field #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 303 inline 400)) apply + mapcar #[(x) "\3011�\302@!@0\207\210\303\207" [x (error) image-size 0] 2] point-at-eol propertize " " display space :align-to - window-width gnus-picon-insert-glyph nostring search-forward cache point file spec addresses address --dolist-tail-- gnus-picon-cache gnus-picon-user-directories gnus-picon-inhibit-top-level-domains i --dotimes-limit-- gnus-picon-domain-directories gnus-picon-style image category] 10])
(defalias 'gnus-picon-transform-newsgroups #[(header) "rq\210\214\306\211\211\307 \210\310\f!\210\311 \210\312\313\f!!\314\211\211\211\314\211\205\325�@\315 \"A\211\204\222�\316\317\"\237\211G\320!\"!\"W\203\207�\321\322\323\324!\233\325#P#\306#\211\203~�!\233\326!!8B\240\210!T\211!\202Q�*B B \327\314\306#\203\313�\320\224\320\225|\210\214``}\210\203\307�eb\210G\330V\203\271�\325c\210\331\211A\242\332\"\210\202\246�db\210)A\211\204.�\314.\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only header point t article-narrow-to-head gnus-article-goto-header mail-header-narrow-to-field message-tokenize-header mail-fetch-field nil assoc split-string "[.]" 0 gnus-picon-find-face "unknown@" mapconcat identity "." gnus-picon-create-glyph search-forward 1 gnus-picon-insert-glyph newsgroups-picon file spec groups group --dolist-tail-- gnus-picon-cache i --dotimes-limit-- gnus-picon-news-directories] 7 nil nil])
#@82 Display picons in the From header.
If picons are already displayed, remove them.
(defalias 'gnus-treat-from-picon #[nil "\305\306\n!!\205%�r\nq\210\307	\203 �\310\f>\203 �\311\310!\202$�\312\313\310\"*)\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t from-picon gnus-delete-images gnus-picon-transform-address "from"] 3 (#$ . 6867) nil])
#@88 Display picons in the Cc and To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-mail-picon #[nil "\305\306\n!!\205*�r\nq\210\307	\203 �\310\f>\203 �\311\310!\202)�\312\313\310\"\210\312\314\310\"*)\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t mail-picon gnus-delete-images gnus-picon-transform-address "cc" "to"] 3 (#$ . 7291) nil])
#@105 Display picons in the Newsgroups and Followup-To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-newsgroups-picon #[nil "\305\306\n!!\205(�r\nq\210\307	\203 �\310\f>\203 �\311\310!\202'�\312\313!\210\312\314!*)\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t newsgroups-picon gnus-delete-images gnus-picon-transform-newsgroups "newsgroups" "followup-to"] 3 (#$ . 7743) nil])
(provide 'gnus-picon)

${this.title}

Code Editor : gnus-picon.elc