ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-picon.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1942))
(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 (#$ . 3330)])
(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 1 2\211 3\315 4\211 5\205\3465@\2114@\2114;\203\3344 4\3164\317\"\2114A@;\203s 4@\3164A@\320\"B\202\200 4@;\205\200 \3164@\320\")\2112\203\334\32146\"A\211/\203\233 /2\202!\32247\"\206\261 \322\323\324\3252A\326#P7\"\2111\203\303 2\3271!2@B\240\2102G8\203\317 \330\202\320 \331Z\332 9 :9:W\203\322\323\324\3259T2\233\326#P;\306#\2111\2039T2\233\3271!9T28B\240\2109T\2119\202\330 *2\237242B6B6\333\f!\210\334 \210\335<\336\"\203\2213G\331U\203\334\337\340\341\3422\"\"\211\332V\203[\343 b\210\344\345\346\347\350\351\352 \331
#DB#c\210\343 b\210\343 02\315 =\211 5\203\2155@\211=;\204\2040b\210\353=>\354#\2105A\2115\204n*\202\334\335<\355\"\203\334\3564\315\306#\203\334\332\224\332\225|\210`02\203\3340b\2102G\330V\203\302\326c\210\202\3152G\330U\203\315\317c\210\3532\211A2\242>\"\210\202\2535A\2115\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 eql right 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 inline 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 (#$ . 6804) 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 (#$ . 7228) 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 (#$ . 7680) nil])
(provide 'gnus-picon)
Kontol Shell Bypass