master f45e792 2/2: Fix Libravatar federation handling

[Lars Ingebrigtsen]

branch: master
commit f45e79233c25631267864887631816afeb1f6b78
Author: Philip K <philipk@posteo.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 7441964..3543be6 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)))))