| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/gnus/gnus-gravatar.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\312\313&\210\314\315\316\317\320DD\321\322\323\324\325\312\305& \210\314\326\316\317\327DD\330\322\331\324\325\312\305& \210\314\332\316\317\333DD\334\322\335\324\325\312\305& \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] "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] "List of image properties applied to Gravatar images." plist gnus-gravatar-too-ugly #[0 "\207" [gnus-article-x-face-too-ugly] 1] "Regexp matching posters whose avatar shouldn't be shown automatically.\nIf nil, show all avatars." (choice regexp (const :tag "Allow all" nil))] 10)
#@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\212 \211@\211@\211\262\203G \314\315\"\203G \211\316\317\225\"\211\262\240\210\204j \203j \314A@\206Z \313\"\204\203 \203j \314\"\204\203 \3201~ \321A@\322 \nE#0\202\202 \210\202\203 \210A\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 "\\` +" substring 0 (error) gravatar-retrieve gnus-gravatar-insert gnus-gravatar-size gravatar-size gnus-gravatar-too-ugly] 13 (#$ . 1430)])
#@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\233 \307\310!!\205\233 rq\210\311\307p!\205\232 @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\224 \326\224Sb\210\327\311 \330!)\262\203g `Sb\210\331`\332\"\204\224 `\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 (#$ . 2254)])
#@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 (#$ . 3367) "p"])
#@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 (#$ . 3782) "p"])
(provide 'gnus-gravatar)