| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/gnus/gnus-picon.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\211 1\315 2\211 3\205\3353@\2112@\2112;\203\3232 2\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\332 7 878W\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 ;\211 3\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\211 G\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\210 G\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)