| Current Path : /usr/share/emacs/24.3/lisp/gnus/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/gnus/gravatar.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:12 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/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\303\304\305\306\307\310\311\312&\210\313\314\315\316\311\304%\210\313\317\320\321\311\304%\210\313\322\323\324\311\304%\210\313\325\326\327\311\304%\207" [require url url-cache custom-declare-group gravatar nil "Gravatar." :version "24.1" :group comm custom-declare-variable gravatar-automatic-caching t "Whether cache retrieved gravatar." gravatar-cache-ttl (days-to-time 30) "Time to live for gravatar cache entries." gravatar-rating "g" "Default rating for gravatar." gravatar-size 32 "Default size in pixels for gravatars."] 8)
#@33 Base URL for getting gravatars.
(defconst gravatar-base-url "http://www.gravatar.com/avatar" (#$ . 1128))
#@35 Create an hash from MAIL-ADDRESS.
(defalias 'gravatar-hash #[(mail-address) "\301\227!\207" [mail-address md5] 2 (#$ . 1240)])
#@50 Return an URL to retrieve MAIL-ADDRESS gravatar.
(defalias 'gravatar-build-url #[(mail-address) "\304\305\306 !\n %\207" [gravatar-base-url mail-address gravatar-rating gravatar-size format "%s/%s?d=404&r=%s&s=%d" gravatar-hash] 6 (#$ . 1374)])
#@60 Check if URL is cached for more than `gravatar-cache-ttl'.
(defalias 'gravatar-cache-expired #[(url) "\203 \304\305 !!?\207\306 !\211\203 \307\310\n \"\311 \"\202 \312)\207" [url-standalone-mode url cache-time gravatar-cache-ttl file-exists-p url-cache-create-filename url-is-cached time-less-p time-add current-time t] 5 (#$ . 1626)])
#@31 Get data from current buffer.
(defalias 'gravatar-get-data #[nil "\212eb\210\300\301\302\303 #\205 \304\305\302\306#\205 `d{)\207" [re-search-forward "^HTTP/.+ 200 OK$" nil line-end-position search-forward "\n\n" t] 4 (#$ . 1973)])
(byte-code "\300\301!\203 \302\303\304\"\210\202 \305\306!\210\302\303\307\"\210\300\207" [featurep gnus-ems defalias gravatar-create-image gnus-create-image require image create-image] 3)
#@87 Get data of current buffer and return an image.
If no image available, return 'error.
(defalias 'gravatar-data->image #[nil "\301 \211\203 \302\303\304#\202 \305)\207" [data gravatar-get-data gravatar-create-image nil t error] 5 (#$ . 2404)])
#@118 Retrieve MAIL-ADDRESS gravatar and call CB on retrieval.
You can provide a list of argument to pass to CB in CBARGS.
(defalias 'gravatar-retrieve #[(mail-address cb &optional cbargs) "\306!\307 !\203+ \310\n \205 DE \311\312!G\313V\203# \f\314C\244\315\312\f\")\202E \315\n\316\317! r
q\210\320\216\321 \210\322\323 !!\210\324 + #)\207" [mail-address url cb cbargs args #1=#:temp-buffer gravatar-build-url gravatar-cache-expired gravatar-retrieved help-function-arglist url-retrieve 4 t apply generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte url-cache-extract url-cache-create-filename gravatar-data->image] 5 (#$ . 2658)])
#@48 Retrieve MAIL-ADDRESS gravatar and returns it.
(defalias 'gravatar-retrieve-synchronously #[(mail-address) "\305!\306 !\203$ r\307 !q\210\n\203 \310p!\210\311 \312p!\210 *\202: \313\314! r\fq\210\315\216\316 \210\317\320 !!\210\311 +)\207" [mail-address url gravatar-automatic-caching data #1=#:temp-buffer gravatar-build-url gravatar-cache-expired url-retrieve-synchronously url-store-in-cache gravatar-data->image kill-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte url-cache-extract url-cache-create-filename] 3 (#$ . 3376)])
#@48 Callback function used by `gravatar-retrieve'.
(defalias 'gravatar-retrieved #[(status cb &optional cbargs) "\203 \304p!\210\305 \306\"\203 \307\n\310 #\210\202 \307\n\311 #\210\312p!\207" [gravatar-automatic-caching status cb cbargs url-store-in-cache plist-get :error apply error gravatar-data->image kill-buffer] 4 (#$ . 4006)])
(provide 'gravatar)