;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:00 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-picon.el
;;; in Emacs version 24.3.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!\204
\302\301\303\304B\"\210\305\306!\210\305\307!\210\310\311\312\313\314\315\316\317&\210\310\320\321\322\314\323\316\317&\210\310\324\325\326\314\327\316\317&\210\310\330\331\332\314\333\316\317&\210\310\334\335\336\314\337\340\341\316\317&	\210\310\342\343\344\314\345\316\317&\210\310\346\347\350\340\351\314\352\316\317&	\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] 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." list :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 (#$ . 2199))
(defvar gnus-picon-cache nil)
(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\205\206\n@\306\211\203}\n@
\307\f	\"\203[\310\311\312\313\314!\311#\311\227\311\260!\211\203D\315\316\"\210\203P\306\211\202!\211A@\210\202\f\317\230\204v\310\320\311R!\211\203v\315\316\"\210\nA\211\204*\nA\211\204\306*\207" [gnus-picon-databases database --dolist-tail-- directories directory faddress nil expand-file-name gnus-picon-find-image "/" mapconcat downcase reverse throw found "news" "/MISC/" address base user result exact] 8) result instance base] 5])
(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) ";\203c\207\303	!\210\304	@\"\210\305@\n?\205A	#\207" [glyph category nostring gnus-add-wash-type gnus-add-image gnus-put-image] 4 (#$ . 3686)])
(defalias 'gnus-picon-create-glyph #[(file) "\304	\"A\206\305\306\307\211\n%B	B\211\211@A)\207" [file gnus-picon-glyph-alist gnus-picon-properties x assoc apply gnus-create-image nil] 8])
(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./01\2112\3113\2114\205\335
4@\2113@\2113;\203\323
33\3153\316\"\2113\2115A@);\203j3@\3153\2115A@)\317\"B\202w3@;\205w\3153@\317\")\2111\203\323
\32036\"A\211.\203\222.1\202
\32137\"\206\250\321\322\323\3241A\325#P7\"\2110\203\2721\3260!1@B\240\2101G8\203\306\327\202\307\330Z\3319:9:W\203
\321\322\323\3249T1\233\325#P;\306#\2110\203\3779T1\233\3260!9T18B\240\2109T\2119\202\317*1\237131B6B6\332\f!\210\333 \210\334<\335\"\203\210
2G\330U\203\323
\336\337\340\3411\"\"\211\331V\203R
\342 b\210\343\344\345\346\347\350\351 \330
#DB#c\210\342 b\210\342 /1\311=\2114\203\204
4@\211=;\204{
/b\210\352=>\353#\2104A\2114\204e
*\202\323
\334<\354\"\203\323
\3553\311\306#\203\323
\331\224\331\225|\210`/1\203\323
/b\2101G\327V\203\271
\325c\210\202\304
1G\327U\203\304
\316c\210\3521\211A1@>\"\210\202\242
4A\2114\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 2 1 0 gnus-article-goto-header mail-header-narrow-to-field eql right 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 cache point file spec addresses address --dolist-tail-- x 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\307eb\210G\330V\203\271\325c\210\331\211A@\332\"\210\202\246db\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 (#$ . 7237) 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 (#$ . 7661) 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 (#$ . 8113) nil])
(provide 'gnus-picon)