Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-picon.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:37 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-picon.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-picon.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\204\n�\301\302M\210\303\304!\210\303\305!\207" [fboundp declare-function (macro . #[(&rest r) "\300\207" [nil] 1]) require gnus gnus-art] 2)
#@54 *List of directories to search for newsgroups faces.
(custom-declare-variable 'gnus-picon-news-directories ''("news") '(#$ . -779) :type '(repeat string) :group 'gnus-picon)
#@48 *List of directories to search for user faces.
(custom-declare-variable 'gnus-picon-user-directories ''("users" "usenix" "local" "misc") '(#$ . -959) :type '(repeat string) :group 'gnus-picon)
#@102 *List of directories to search for domain faces.
Some people may want to add "unknown" to this list.
(custom-declare-variable 'gnus-picon-domain-directories ''("domains") '(#$ . -1159) :type '(repeat string) :group 'gnus-picon)
#@47 *List of suffixes on picon file names to try.
(custom-declare-variable '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) '(#$ . -1393) :type '(repeat string) :group 'gnus-picon)
#@153 How should picons be displayed.
If `inline', the textual representation is replaced.  If `right', picons are
added right to the textual representation.
(custom-declare-variable 'gnus-picon-style ''inline '(#$ . 1709) :type '(choice (const inline) (const right)) :group 'gnus-picon)
(byte-code "\301\302\303\304\305\306%\210\307\310\311\302#\210\301\306\312\313\305\306%\210\307\314\311\306#\210\315B\316\315!\204+�\317\315\320\"\210\320\207" [current-load-list custom-declare-face gnus-picon-xbm ((t (:foreground "black" :background "white"))) "Face to show xbm picon in." :group gnus-picon put gnus-picon-xbm-face face-alias ((t (:foreground "black" :background "white"))) "Face to show picon in." gnus-picon-face gnus-picon-setup-p default-boundp set-default nil] 6)
#@91 Picon glyphs cache.
List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.
(defvar gnus-picon-glyph-alist nil (#$ . 2486))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-picon-cache default-boundp set-default nil] 3)
(defalias 'gnus-picon-split-address #[(address) "\302\303\"\211\211A@);\203�@\302\211A@)\304\"B\207@;\205'�\302@\304\"\207" [address x 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\"\211\211A@);\203 �@\306\211A@)\310\"B\202+�@;\205+�\306@\310\")\211\211A@\311\211\311\211\f
\311\312\313\215.\207" [address x user faddress database directory split-string "@" "\\." nil found (byte-code "\306\211\203\206�\n@\306\211\203~�
@\307\f	\"\203\\�\310\311\312\313\314!\311#\311\227\311\260!\211\203E�\315\316\"\210\203Q�\306\211\202\"�\211A@\210\202 �\f\317\230\204w�\310\320\311R!\211\203w�\315\316\"\210
A\211\204�*\nA\211\204�*\306\207" [gnus-picon-databases database #1=#:--cl-dolist-temp-- directories directory #2=#:--cl-dolist-temp-- nil expand-file-name gnus-picon-find-image "/" mapconcat downcase reverse throw found "news" "/MISC/" faddress address base user result exact] 9) result instance base] 6])
(defalias 'gnus-picon-find-image #[(directory) "\306\211\211\204#�\f\211A@\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 (#$ . 4109)])
(defalias 'gnus-picon-create-glyph #[(file) "\303	\"A\206�\304!B	B\211\211@A)\207" [file gnus-picon-glyph-alist x assoc gnus-create-image] 4])
(defalias 'gnus-picon-transform-address #[(header category) "rq\210\214\306\211\211\307 \210\310\311\312\313\217\206�\314\f!!\311\211\211\211\211-./0\2111\3112\2113\203\3203@\2112@\2112;\203\30722\3152\316\"\2112\2114A@);\203j�2@\3152\2114A@)\317\"B\202w�2@;\205w�\3152@\317\")\2110\203\307\32025\"A\211-\203\222�-0\202\32126\"\206\250�\321\322\323\3240A\325#P6\"\211/\203\272�0\326/!0@B\240\2100GS\3277878W\203\376�\321\322\323\3247T0\233\325#P9\306#\211/\203\365�7T0\233\326/!7T08B\240\2107T\2117\202\305�*0\237020B5B5\330\f!\210\331 \210:\332=\203}1G\333U\203\307\334\335\336\3370\"\"\211\327V\203G\340 b\210\341\342\343\344\345\346\347 \333
#DB#c\210\340 b\210\340 .0\311;\211<\203y<@\211;;\204p.b\210\350;=\351#\210<A\211<\204Z*\202\307:\352=\203\307\3532\311\306#\203\307\327\224\327\225|\210`.0\203\307.b\2100G\354V\203\255\325c\210\202\2700G\354U\203\270\316c\210\3500\211A0@=\"\210\202\2263A\2113\2044�.
\311\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 nil (byte-code "\301\302!\206�\303!\207" [header mail-encode-encoded-word-string mail-fetch-field ""] 3) ((error)) mail-fetch-field split-string "@" "\\." assoc gnus-picon-find-face "unknown@" mapconcat identity "." gnus-picon-create-glyph 0 gnus-article-goto-header mail-header-narrow-to-field right 1 apply + mapcar #[(x) "\300\301\302\217\207" [nil (byte-code "\301@!@\207" [x image-size] 2) ((error 0))] 3] point-at-eol propertize " " display space :align-to - window-width gnus-picon-insert-glyph nostring inline search-forward 2 cache point file spec addresses address #1=#:--cl-dolist-temp-- x gnus-picon-cache gnus-picon-user-directories i #2=#:--cl-dotimes-temp-- gnus-picon-domain-directories gnus-picon-style image #3=#:--cl-dolist-temp-- category] 11])
(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\203\324�@\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@\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 #1=#:--cl-dolist-temp-- gnus-picon-cache i #2=#:--cl-dotimes-temp-- gnus-picon-news-directories] 9 nil nil])
#@82 Display picons in the From header.
If picons are already displayed, remove them.
(defalias 'gnus-treat-from-picon #[nil "r\nq\210\305	\203�\306\f>\203�\307\306!\202�\310\311\306\"+\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types t from-picon gnus-delete-images gnus-picon-transform-address "from"] 3 (#$ . 7586) nil])
#@88 Display picons in the Cc and To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-mail-picon #[nil "r\nq\210\305	\203�\306\f>\203�\307\306!\202!�\310\311\306\"\210\310\312\306\"+\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types t mail-picon gnus-delete-images gnus-picon-transform-address "cc" "to"] 3 (#$ . 7966) nil])
#@105 Display picons in the Newsgroups and Followup-To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-newsgroups-picon #[nil "r\nq\210\305	\203�\306\f>\203�\307\306!\202�\310\311!\210\310\312!+\207" [buffer-read-only wash-picon-p gnus-article-buffer inhibit-read-only gnus-article-wash-types t newsgroups-picon gnus-delete-images gnus-picon-transform-newsgroups "newsgroups" "followup-to"] 2 (#$ . 8374) nil])
(provide 'gnus-picon)

${this.title}

Code Editor : gnus-picon.elc