;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\324\325&\210\314\326\316\317\327DD\330\322\331\324\325&\210\314\332\316\317\333DD\334\322\335\324\325&\207" [require gravatar gnus-art mail-extr custom-declare-group gnus-gravatar nil "Gravatars in Gnus." :link (custom-group-link gravatar) :group gnus-visual custom-declare-variable gnus-gravatar-size funcall function #[0 "\300\207" [nil] 1 #1=""] "Size in pixels at which gravatars should be displayed.\nIf nil, default to `gravatar-size'." :type (choice (const :tag "Default" nil) (integer :tag "Pixels")) :version "24.1" gnus-gravatar-properties #[0 "\300\207" [(:ascent center :relief 1)] 1 #1#] "List of image properties applied to Gravatar images." plist gnus-gravatar-too-ugly #[0 "\207" [gnus-article-x-face-too-ugly] 1 #1#] "Regexp matching posters whose avatar shouldn't be shown automatically.\nIf nil, show all avatars." (choice regexp (const :tag "Allow all" nil))] 8)
#@40 

(fn HEADER CATEGORY &optional FORCE)
(defalias 'gnus-gravatar-transform-address #[770 "rq\210\214\306\211\211\307 \210\306\310\311\312!\206\313\306\"\206#\310
\211\205\207\211@\211@\211\262\203G\314\315\"\203G\211\316\225\310O\211\262\240\210\204j\203j\314A@\206Z\313\"\204\200\203j\314\"\204\200\3171\320
A@\321	\nE#0\210\202\200\210
A\266\202\202'\262
+\266\202-\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 gnus-gravatar-size gravatar-size gnus-gravatar-too-ugly] 13 (#$ . 1095)])
#@203 Insert GRAVATAR for ADDRESS in HEADER in current article buffer.
Set image category to CATEGORY.  This function is intended as a
callback for `gravatar-retrieve'.

(fn GRAVATAR HEADER ADDRESS CATEGORY)
(defalias 'gnus-gravatar-insert #[1028 "\306=?\205\234\307\310!!\205\234rq\210\311\307p!\205\233
@A@\312 \311\211\214\313 \210\314!\210\315 \210\203J\316\317\320\321\322!#\323\322!Q\324\311#\202O\325\324\311#\203\225\326\224Sb\210\327\311\330
!)\262
\203g`Sb\210\331`S\332\"\204\225`\333
\"\262\334\211T{#\210\335
`\332	$\210\336!\210\337	\"\266)\211b*\266\203*\207" [gnus-article-buffer inhibit-read-only case-fold-search inhibit-point-motion-hooks inhibit-changing-match-data gnus-gravatar-properties 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 get-text-property gnus-gravatar append gnus-put-image put-text-property gnus-add-wash-type gnus-add-image] 13 (#$ . 1899)])
#@105 Display gravatar in the From header.
If gravatar is already displayed, remove it.

(fn &optional FORCE)
(defalias 'gnus-treat-from-gravatar #[256 "\303\304!!\205 rq\210\305\306\n>\203\307\306!\202\310\311\306#*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t from-gravatar gnus-delete-images gnus-gravatar-transform-address "from"] 5 (#$ . 3013) ["p" (gnus-article-mode gnus-summary-mode)]])
#@116 Display gravatars in the Cc and To headers.
If gravatars are already displayed, remove them.

(fn &optional FORCE)
(defalias 'gnus-treat-mail-gravatar #[256 "\303\304!!\205&rq\210\305\306\n>\203\307\306!\202%\310\311\306#\210\310\312\306#*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t mail-gravatar gnus-delete-images gnus-gravatar-transform-address "cc" "to"] 5 (#$ . 3468) ["p" (gnus-article-mode gnus-summary-mode)]])
(provide 'gnus-gravatar)