From f45e79233c25631267864887631816afeb1f6b78 Mon Sep 17 00:00:00 2001 From: Philip K Date: Tue, 18 Aug 2020 21:19:21 +0200 Subject: [PATCH] Fix Libravatar federation handling * lisp/image/gravatar.el (gravatar--service-libravatar): Implement correct algorithm (bug#40354). --- lisp/image/gravatar.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el index 74419640956..3543be6de91 100644 --- a/lisp/image/gravatar.el +++ b/lisp/image/gravatar.el @@ -151,10 +151,11 @@ to track whether you're reading a specific mail." (save-match-data (if (not (string-match ".+@\\(.+\\)" addr)) (funcall callback "https://seccdn.libravatar.org/avatar") - (let* ((domain (match-string 1 addr)) - (records '(("_avatars-sec" . "https") - ("_avatars" . "http"))) - (func + (let ((domain (match-string 1 addr)) + (records '(("_avatars-sec" . "https") + ("_avatars" . "http"))) + func) + (setq func (lambda (result) (cond ((and @@ -205,7 +206,7 @@ to track whether you're reading a specific mail." (concat (caar records) "._tcp." domain) func 'SRV)) (t ;fallback - (funcall callback "https://seccdn.libravatar.org/avatar")))))) + (funcall callback "https://seccdn.libravatar.org/avatar"))))) (dns-query-asynchronous (concat (caar records) "._tcp." domain) func 'SRV t))))) -- 2.39.5