ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-gravatar.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\300\303!\210\304\305\306\307\310\311%\210\312\313\306\314\315\316\317\320\310\305& \210\312\321\322\323\315\324\317\320\310\305& \210\312\325\326\327\315\330\317\320\310\305& \207" [require gravatar gnus-art mail-extr custom-declare-group gnus-gravatar nil "Gnus Gravatar." :group gnus-visual custom-declare-variable gnus-gravatar-size "How big should gravatars be displayed.\nIf nil, default to `gravatar-size'." :type (choice (const nil) integer) :version "24.1" gnus-gravatar-properties '(:ascent center :relief 1) "List of image properties applied to Gravatar images." plist gnus-gravatar-too-ugly gnus-article-x-face-too-ugly "Regexp matching posters whose avatar shouldn't be shown automatically." (choice regexp (const nil))] 10)
(defalias 'gnus-gravatar-transform-address #[(header category &optional force) "rq\210\214\306\211\211\307 \210\306 \310 \311\312!\206 \313\306\" \206& \310 \310 \211 \205\244 @\211@\211\203X \314\315\"\203X \316\225\310O\211\240\210\204 \203 \314A@\206m \313\"\204\232 \203 \314\"\204\232 \3171\225 \320A@\321E#0\202\231 \210\202\232 \210A\211\2046 \310.\f\207" [gnus-article-buffer case-fold-search inhibit-point-motion-hooks inhibit-read-only mail-extr-disable-voodoo mail-extr-ignore-realname-equals-mailbox-name t article-narrow-to-head nil mail-extract-address-components mail-fetch-field "" string-match "\\` +" 0 (error) gravatar-retrieve gnus-gravatar-insert header addresses gnus-gravatar-size gravatar-size name address --dolist-tail-- force gnus-gravatar-too-ugly category] 7])
#@98 Insert GRAVATAR for ADDRESS in HEADER in current article buffer.
Set image category to CATEGORY.
(defalias 'gnus-gravatar-insert #[(gravatar header address category) "\306=?\205\242 \307\310 !!\205\242 r q\210\311\312 \311\211 \214\313 \210\307p!\203\234 \314!!\210\315 \210\"@\"A@ #\211 $\203R \316\317\320$!\321\322#\323\320#!Q\324\311#\202X \325#\324\311#\203\233 \326\224Sb\210\327\330!\203j `Sb\210\331\332`!>\204\233 ` %\333&\"\334`%T{'#\210\335%`\331\"$\210\336'!\210\337'\"\210)*)\340
!b-\207" [gravatar gnus-article-buffer inhibit-read-only case-fold-search inhibit-point-motion-hooks mark error buffer-live-p get-buffer t point-marker article-narrow-to-head gnus-article-goto-header mail-header-narrow-to-field re-search-forward gnus-replace-in-string regexp-quote "[ ]+" "[ \n ]+" "\\|" nil search-forward 0 looking-at "[\"<]" gnus-gravatar text-properties-at append gnus-put-image put-text-property gnus-add-wash-type gnus-add-image marker-position header address mail-address real-name point gnus-gravatar-properties category] 6 (#$ . 2038)])
#@83 Display gravatar in the From header.
If gravatar is already displayed, remove it.
(defalias 'gnus-treat-from-gravatar #[(&optional force) "\304\305!!\205 rq\210\306\307\n>\203 \310\307!\202 \311\312\307 #*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types force buffer-live-p get-buffer t from-gravatar gnus-delete-images gnus-gravatar-transform-address "from"] 4 (#$ . 3122) (list t)])
#@94 Display gravatars in the Cc and To headers.
If gravatars are already displayed, remove them.
(defalias 'gnus-treat-mail-gravatar #[(&optional force) "\304\305!!\205& rq\210\306\307\n>\203 \310\307!\202% \311\312\307 #\210\311\313\307 #*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types force buffer-live-p get-buffer t mail-gravatar gnus-delete-images gnus-gravatar-transform-address "cc" "to"] 4 (#$ . 3539) (list t)])
(provide 'gnus-gravatar)
Kontol Shell Bypass