HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\242r	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\322#!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 replace-regexp-in-string "[	 ]+" "[	\n ]+" regexp-quote "\\|" 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] 7 (#$ . 2036)])
#@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)