%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/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\233rq\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)

Zerion Mini Shell 1.0