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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\320\313\314&\210\303\321\305\306\322DD\323\311\324\313\314&\210\303\325\305\306\326DD\327\311\330\313\314&\210\303\331\305\306\332DD\333\311\334\335\336\313\314&	\210\303\337\305\306\340DD\341\311\342\313\314&\210\303\343\305\306\344DD\345\335\346\311\347\313\314&	\207" [require gnus gnus-art custom-declare-variable gnus-picon-news-directories funcall function #[0 "\300\207" [("news")] 1 #1=""] "List of directories to search for newsgroups faces." :type (repeat string) :group gnus-picon gnus-picon-user-directories #[0 "\300\207" [("users" "usenix" "local" "misc")] 1 #1#] "List of directories to search for user faces." (repeat string) gnus-picon-domain-directories #[0 "\300\207" [("domains")] 1 #1#] "List of directories to search for domain faces.\nSome people may want to add \"unknown\" to this list." (repeat string) gnus-picon-file-types #[0 "\300C\301\302!\203
\303
B\262
\301\304!\203\305
B\262
\207" ["xbm" gnus-image-type-available-p gif "gif" xpm "xpm"] 3 #1#] "List of suffixes on picon file names to try." (repeat string) gnus-picon-properties #[0 "\300\207" [(:color-symbols (("None" . "white")))] 1 #1#] "List of image properties applied to picons." plist :version "24.3" gnus-picon-style #[0 "\300\207" [inline] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 (#$ . 1814))
(defvar gnus-picon-cache nil)
#@16 

(fn ADDRESS)
(defalias 'gnus-picon-split-address #[257 "\300
\301\"\262
\211A@;\203\211@\300A@\302\"B\207\211@;\205\"\300
@\302\"\207" [split-string "@" "\\."] 5 (#$ . 1988)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put gnus-picon-split-address speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@44 

(fn ADDRESS DIRECTORIES &optional EXACT)
(defalias 'gnus-picon-find-face #[770 "\301
\302\"\262
\211A@;\203\211@\301A@\303\"B\262
\202)\211@;\205'\301
@\303\"\262
\211
A\262\242
\304\211\3052\262\211\205\257\211@\211\203\247\211@\262	\306
\"\262\203\206\307\310\311\312\313!\310#\310\f\227\310\260!\211\262\203s\314\305\"\210	\203~\304\262	\202OA\262	\202O\211\315\230\204\240\307\316\n\310R!\211\262\203\240\314\305\"\210
A\266\202\202?\210
A\266\202\2027\262
0\207" [gnus-picon-databases split-string "@" "\\." nil found expand-file-name gnus-picon-find-image "/" mapconcat downcase reverse throw "news" "/MISC/"] 19 (#$ . 2326)])
#@18 

(fn DIRECTORY)
(defalias 'gnus-picon-find-image #[257 "\301\211\211\204\"\211A\262\242\211\262\203\"\302\303Q\211\262!\262\202\205'\211\207" [gnus-picon-file-types nil file-exists-p "face."] 9 (#$ . 3011)])
#@161 Insert GLYPH into the buffer.
GLYPH can be either a glyph or a string.  When NOSTRING, no textual
replacement is added.

(fn GLYPH CATEGORY &optional NOSTRING)
(defalias 'gnus-picon-insert-glyph #[770 ";\203c\207\300!\210\301@\"\210\302@?\205A#\207" [gnus-add-wash-type gnus-add-image gnus-put-image] 7 (#$ . 3242)])
#@13 

(fn FILE)
(defalias 'gnus-picon-create-glyph #[257 "\302
\"A\206\211\303\304\305\211	%BB\211@A\207" [gnus-picon-glyph-alist gnus-picon-properties assoc apply gnus-create-image nil] 8 (#$ . 3578)])
#@24 

(fn HEADER CATEGORY)
(defalias 'gnus-picon-transform-address #[514 "rq\210\214\306\211\211\307 \210\310\3111 \312\313!\206\314!0\202$\210\202'\206*\313!!\315\211\211\211\211\211\205\244
\211@\211@\262
\211;\203\235
\211\316
\317\"\262
\211A@;\203\\\211@\316A@\320\"B\262
\202i\211@;\205g\316
@\320\"\262
\211\262\203\235
\321
\f\"A\211\262\203\200\262\202\366\322

\"\206\223\322\323\324\325\nA\326#P
\"\211\262\203\245\327!@B\240\210G,\203\261\330\202\262\331Z\332\211W\203\350\322\323\324\325T
\233\326#P-\306#\211\262	\203\341\211T	\233\327	!T8B\240\210\211T\262
\202\264\266\237\262\211B\fB\333\n!\210\334 \210.\335\267\202\235
G\331U\203\235
\336\337\340\341\n\"\"\262\332V\2031
\342 b\210\343\344\345\346\347\350 SZDB#c\210\342 b\210\342 \262\211\203X
\211@\211;\204Q
b\210\351
\f\352#\210
A\266\202\202;
\210\202\235
\353
\315\306#\203\235
\332\224\332\225|\210`\262\203\235
b\210G\330V\203\203
\326c\210\202\216
G\330U\203\216
\317c\210\351\211A\262	\242\n\"\210\202m

A\266\202\2021\262
\266\206-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-picon-cache gnus-picon-user-directories 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 261 inline 348)) apply + mapcar #[257 "\3001\301
@!@0\207\210\302\207" [(error) image-size 0] 3 "\n\n(fn X)"] point-at-eol propertize " " display space :align-to window-width gnus-picon-insert-glyph nostring search-forward gnus-picon-inhibit-top-level-domains gnus-picon-domain-directories gnus-picon-style] 18 (#$ . 3789)])
#@15 

(fn HEADER)
(defalias 'gnus-picon-transform-newsgroups #[257 "rq\210\214\306\211\211\307 \210\310
!\210\311 \210\312\313!!\314\211\211\205\254\211@\315
\f\"A\211\262\204p\316
\317\"\237\262G\320\211W\203h\321\322\323\324\n\233\325#P
\306#\211\262\203a\211\233\326!8B\240\210\211T\262
\2028\266\211B\fB\327
\314\306#\203\245\320\224\320\225|\210\214``}\210\203\241eb\210G\330V\203\224\325c\210\331\211A\262\242\332\"\210\202\203db\210)
A\266\202\202\262
\266\203-\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only gnus-picon-cache gnus-picon-news-directories 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] 14 (#$ . 5723) [nil (gnus-article-mode gnus-summary-mode)]])
#@82 Display picons in the From header.
If picons are already displayed, remove them.
(defalias 'gnus-treat-from-picon #[0 "\304\305	!!\205$r	q\210\306\211\203\307>\203\310\307!\202#\311\312\307\"*\207" [buffer-read-only 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"] 4 (#$ . 6714) [nil (gnus-article-mode gnus-summary-mode)]])
#@88 Display picons in the Cc and To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-mail-picon #[0 "\304\305	!!\205)r	q\210\306\211\203\307>\203\310\307!\202(\311\312\307\"\210\311\313\307\"*\207" [buffer-read-only 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"] 4 (#$ . 7161) [nil (gnus-article-mode gnus-summary-mode)]])
#@105 Display picons in the Newsgroups and Followup-To headers.
If picons are already displayed, remove them.
(defalias 'gnus-treat-newsgroups-picon #[0 "\304\305	!!\205'r	q\210\306\211\203\307>\203\310\307!\202&\311\312!\210\311\313!*\207" [buffer-read-only 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"] 4 (#$ . 7636) [nil (gnus-article-mode gnus-summary-mode)]])
(provide 'gnus-picon)