diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-29 05:52:51 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-29 05:52:51 +0100 |
| commit | 3ddea271cc9542e29829629991a4073ab3cf5db9 (patch) | |
| tree | 20d8d83c0295e764d631464baec71f7626a26c25 | |
| parent | 887b03386fd5925ef5d74404ee6cc18e2257cff6 (diff) | |
| download | emacs-3ddea271cc9542e29829629991a4073ab3cf5db9.tar.gz | |
Slight gravatar.el code clean up
* lisp/image/gravatar.el (gravatar--service-libravatar): Clean the
code up slightly.
| -rw-r--r-- | lisp/image/gravatar.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el index b1e2a314ce8..f6f056a2baf 100644 --- a/lisp/image/gravatar.el +++ b/lisp/image/gravatar.el @@ -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) |