;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-gravatar.el
;;; in Emacs version 24.3.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 integer :version "24.1" gnus-gravatar-properties '(:ascent center :relief 1) "List of image properties applied to Gravatar images." list 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\222@\211@\211\203X\314\315\"\203X\316\225\310O\211\240\210\204\203\203\203\314\211A@)\206q\313\"\204\210\203\203\314\"\204\210\310\317\320\217\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 (byte-code "\304\211A@)\305\nE#\207" [address x header category gravatar-retrieve gnus-gravatar-insert] 7) ((error)) header addresses gnus-gravatar-size gravatar-size name address --dolist-tail-- force gnus-gravatar-too-ugly x] 5])
#@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\246\307\310	!!\205\246r	q\210\311\312 \311\211\214\313 \210\307p!\203\240\314!!\210\315 \210\"@\"\211#A@)$\211%\203V\316\317\320%!\321\322#\323\320$!Q\324\311#\202\\\325$\324\311#\203\237\326\224Sb\210\327\330!\203n`Sb\210\331\332`!>\204\237`&\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 x mail-address real-name point gnus-gravatar-properties category] 6 (#$ . 2213)])
#@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 (#$ . 3307) (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 (#$ . 3724) (list t)])
(provide 'gnus-gravatar)