[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f45e792 2/2: Fix Libravatar federation handling
From: |
Lars Ingebrigtsen |
Subject: |
master f45e792 2/2: Fix Libravatar federation handling |
Date: |
Tue, 18 Aug 2020 15:19:32 -0400 (EDT) |
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)))))