;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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\312\305&\210\324\315\306\325#\210\314\326\316\317\327DD\330\322\331\310\332\312\305&	\210\324\326\306\325#\210\314\333\316\317\334DD\335\322\336\310\332\312\305&	\210\314\337\316\317\340DD\341\322\342\310\332\312\305&	\210\314\343\316\317\344DD\345\322\346\310\332\312\305&	\210\314\347\316\317\350DD\351\322\323\310\332\312\305&	\207" [require url url-cache dns custom-declare-group gravatar nil "Gravatars." :version "24.1" :group comm custom-declare-variable gravatar-automatic-caching funcall function #[0 "\300\207" [t] 1 #1=""] "Whether to cache retrieved gravatars." :type boolean make-obsolete-variable "28.1" gravatar-cache-ttl #[0 "\300\207" [2592000] 1 #1#] "Time to live in seconds for gravatar cache entries.\nIf a requested gravatar has been cached for longer than this, it\nis retrieved anew.  The default value is 30 days." integer "27.1" gravatar-rating #[0 "\300\207" ["g"] 1 #1#] "Most explicit Gravatar rating level to allow.\nSome gravatars are rated according to how suitable they are for\ndifferent audiences.  The supported rating levels are, in order\nof increasing explicitness, the following:\n\n\"g\"  - Suitable for any audience.\n\"pg\" - May contain rude gestures, provocatively dressed\n       individuals, mild profanity, or mild violence.\n\"r\"  - May contain harsh profanity, intense violence, nudity,\n       or hard drug use.\n\"x\"  - May contain hardcore sexual imagery or extremely\n       disturbing violence.\n\nEach level covers itself as well as all less explicit levels.\nFor example, setting this variable to \"pg\" will allow gravatars\nrated either \"g\" or \"pg\"." (choice (const :tag "General Audience" "g") (const :tag "Parental Guidance" "pg") (const :tag "Restricted" "r") (const :tag "Explicit" "x")) gravatar-size #[0 "\300\207" [32] 1 #1#] "Gravatar size in pixels to request.\nValid sizes range from 1 to 2048 inclusive.  If nil, use the\nGravatar default (usually 80)." (choice (const :tag "Gravatar default" nil) (integer :tag "Pixels")) gravatar-default-image #[0 "\300\207" ["404"] 1 #1#] "Default gravatar to use when none match the request.\nThis happens when no gravatar satisfying `gravatar-rating' exists\nfor a given email address.  The following options are supported:\n\nnil         - Default placeholder.\n\"404\"       - No placeholder.\n\"mp\"        - Mystery Person: generic avatar outline.\n\"identicon\" - Geometric pattern based on email address.\n\"monsterid\" - Generated \"monster\" with different colors, faces, etc.\n\"wavatar\"   - Generated faces with different features and backgrounds.\n\"retro\"     - Generated 8-bit arcade-style pixelated faces.\n\"robohash\"  - Generated robot with different colors, faces, etc.\n\"blank\"     - Transparent PNG image.\nURL         - Custom image URL." (choice (const :tag "Default" nil) (const :tag "None" "404") (const :tag "Mystery person" "mp") (const :tag "Geometric patterns" "identicon") (const :tag "Monsters" "monsterid") (const :tag "Faces" "wavatar") (const :tag "Retro" "retro") (const :tag "Robots" "robohash") (const :tag "Blank" "blank") (string :tag "Custom URL")) gravatar-force-default #[0 "\300\207" [nil] 1 #1#] "Whether to force use of `gravatar-default-image'.\nNon-nil means use `gravatar-default-image' even when there exists\na gravatar for a given email address."] 10)
#@39 Alist of supported gravatar services.
(defconst gravatar-service-alist (byte-code "\300\301B\302\303B\304\305BE\207" [gravatar #[514 "\211\300!\207" ["https://www.gravatar.com/avatar"] 4 "\n\n(fn ADDR CALLBACK)"] unicornify #[514 "\211\300!\207" ["https://unicornify.pictures/avatar/"] 4 "\n\n(fn ADDR CALLBACK)"] libravatar gravatar--service-libravatar] 4) (#$ . 3530))
(byte-code "\301\302\303\304\305DD\306\307\310\311\312\"B\313\314\315\316\315\317\315\320\321\322&\207" [gravatar-service-alist custom-declare-variable gravatar-service funcall function #[0 "\300\207" [gravatar] 1 ""] "Symbol denoting gravatar-like service to use.\nNote that certain services might ignore other options, such as\n`gravatar-default-image' or certain values as with\n`gravatar-rating'.\n\nNote that `'libravatar' has security implications: It can be used\nto track whether you're reading a specific mail." :type choice mapcar #[257 "\300
@D\207" [const] 3 "\n\n(fn S)"] :version "28.1" :link (url-link "https://www.libravatar.org/") (url-link "https://unicornify.pictures/") (url-link "https://gravatar.com/") :group gravatar] 16)
#@76 Find domain that hosts avatars for email address ADDR.

(fn ADDR CALLBACK)
(defalias 'gravatar--service-libravatar #[514 "\300 \301\302\"\216\303\304\"\204
\305!\2029\306\307\"\310C\311C\211\301\312%\240\210\313\242@@\314Q\242\315\316$\266\203)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match ".+@\\(.+\\)" "https://seccdn.libravatar.org/avatar" match-string 1 (("_avatars-sec" . "https") ("_avatars" . "http")) nil #[257 "\211\203\264\305\306\"\307\310\305\311\"\312=\205\"\307\313\"\314\315\316#\316\317\211\203D\211@\305\320\"U\203=\305\321\"\\\262\211B\262
A\266\202\202!\210\3222\257\211\211\205\254\211@\316U\204d\323\316\324!\305\321\"#\203\235\323\325\305\326\"\327#\203\235\330\305\331\"\317\332\333#)\266\203\203\235\300\334\335\336\302\242@A\305\331\"\305\326\"$!!\210\337\322\332\"\210\305\321\"Z\262
A\266\202\202J\262
0\266\206\206\314\302\211\242A\240\203\311\340\302\242@@\341\301Q\303\242\312#\207\300\342!\207" [V0 V1 V2 V3 inhibit-changing-match-data dns-get answers mapcar #[257 "\300\301A\"\207" [dns-get data] 4 "\n\n(fn RECORD)"] type SRV #[257 "\300\301\"\207" [dns-get priority] 4 "\n\n(fn R)"] apply max 0 nil priority weight done <= random 1 port 65535 "\\`[-.0-9A-Za-z]+\\'" target t string-match url-normalize-url format "%s://%s:%s/avatar" throw dns-query-asynchronous "._tcp." "https://seccdn.libravatar.org/avatar"] 18 "\n\n(fn RESULT)"] dns-query-asynchronous "._tcp." SRV t] 13 (#$ . 4655)])
#@63 Return the Gravatar hash for MAIL-ADDRESS.

(fn MAIL-ADDRESS)
(defalias 'gravatar-hash #[257 "\300\301!\227!\207" [md5 string-trim] 4 (#$ . 6204)])
#@47 Return URI-encoded query string for Gravatar.
(defalias 'gravatar--query-string #[0 "\304\305D\306	\205
\307	DC\n\205\310\205\311DC#B!\207" [gravatar-rating gravatar-default-image gravatar-force-default gravatar-size url-build-query-string r append d ((f y)) s] 7 (#$ . 6359)])
#@100 Find the URL of a gravatar for MAIL-ADDRESS and call CALLBACK with it.

(fn MAIL-ADDRESS CALLBACK)
(defalias 'gravatar-build-url #[514 "\302 \303	\"\304\305$\"\207" [gravatar-service gravatar-service-alist gravatar--query-string alist-get make-closure #[257 "\301\303\304\305\300!\302$!\207" [V0 V1 V2 format "%s/%s?%s" gravatar-hash] 7 "\n\n(fn URL)"]] 10 (#$ . 6652)])
#@55 Return body of current URL buffer, or nil on failure.
(defalias 'gravatar-get-data #[0 "\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 (#$ . 7038)])
#@22 Cache for gravatars.
(defvar gravatar--cache (make-hash-table :test 'equal) (#$ . 7300))
#@258 Asynchronously retrieve a gravatar for MAIL-ADDRESS.
When finished, call CALLBACK as (apply CALLBACK GRAVATAR CBARGS),
where GRAVATAR is either an image descriptor, or the symbol
`error' if the retrieval failed.

(fn MAIL-ADDRESS CALLBACK &optional CBARGS)
(defalias 'gravatar-retrieve #[770 "\301\"\302 \210\211\203\303A#\207\304\305\306$\"\207" [gravatar--cache gethash gravatar--prune-cache apply gravatar-build-url make-closure #[257 "\303
\304\305\300\301\302$\306\307$\207" [V0 V1 V2 url-retrieve make-closure #[257 "\304
\305\"?\205\n\306 \211\205\307
\310\311#\211\203&\300\312\313\314 \315\"B#\266\316\301\2030\2021\317\302#\320 \210\207" [V0 V1 V2 gravatar--cache plist-get :error gravatar-get-data create-image nil t puthash time-convert current-time integer apply error kill-buffer] 10 "\n\n(fn STATUS)"] nil t] 8 "\n\n(fn URL)"]] 11 (#$ . 7396)])
(defalias 'gravatar--prune-cache #[0 "\301C\302\303 \304\"\305Z\306\307\310#\"\210
\242\211\205&\211@\311
\"\210
A\266\202\202\207" [gravatar--cache nil time-convert current-time integer 43200 maphash make-closure #[514 "\211@\301W\205
\300\300\242B\240\207" [V0 V1] 5 "\n\n(fn KEY VAL)"] remhash] 7])
#@156 Synchronously retrieve a gravatar for MAIL-ADDRESS.
Value is either an image descriptor, or the symbol `error' if the
retrieval failed.

(fn MAIL-ADDRESS)
(defalias 'gravatar-retrieve-synchronously #[257 "\300C\301\302\303\"\"\210\211\242\204\304\305!\210\202\nr\306
\242\307\"q\210\310\300\311\")\207" [nil gravatar-build-url make-closure #[257 "\300
\240\207" [V0] 3 "\n\n(fn U)"] sleep-for 0.01 url-retrieve-synchronously t gravatar-retrieved identity] 7 (#$ . 8601)])
#@264 Handle Gravatar response data in current buffer.
Return the result of (apply CB DATA CBARGS), where DATA is either
an image descriptor, or the symbol `error' on failure.
This function is intended as a callback for `url-retrieve'.

(fn STATUS CB &optional CBARGS)
(defalias 'gravatar-retrieved #[770 "\300\301\"?\205\n\302 \303\203\304\305\306#\202\307#\310 \210\207" [plist-get :error gravatar-get-data apply create-image nil t error kill-buffer] 10 (#$ . 9085)])
(provide 'gravatar)