procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Slight gravatar.el code clean up

Browse source 
* lisp/image/gravatar.el (gravatar--service-libravatar): Clean the
code up slightly.
This commit is contained in:
Lars Ingebrigtsen 2021-01-29 05:52:51 +01:00
parent 887b03386f
commit 3ddea271cc
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/image/gravatar.el
View file

@ -167,13 +167,12 @@ to track whether you're reading a specific mail."
;; ignore).
(and (eq (dns-get 'type answers) 'SRV)
answers)))
(priorities (and (mapcar (lambda (r)
(dns-get 'priority r))
data)))
(max-priority (if priorities
(apply #'max priorities)
0))
(sum 0) top)
(priorities (mapcar (lambda (r)
(dns-get 'priority r))
data))
(max-priority (apply #'max 0 priorities))
(sum 0)
top)
;; Attempt to find all records with the same maximal
;; priority, and calculate the sum of their weights.
(dolist (ent data)