Edit file

File name : gnus-gravatar.elc

Content :;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\242�r 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)

Save