diff options
| author | Lars Ingebrigtsen | 2021-01-29 05:52:51 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-01-29 05:52:51 +0100 |
| commit | 3ddea271cc9542e29829629991a4073ab3cf5db9 (patch) | |
| tree | 20d8d83c0295e764d631464baec71f7626a26c25 | |
| parent | 887b03386fd5925ef5d74404ee6cc18e2257cff6 (diff) | |
| download | emacs-3ddea271cc9542e29829629991a4073ab3cf5db9.tar.gz emacs-3ddea271cc9542e29829629991a4073ab3cf5db9.zip | |
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." | |||
| 167 | ;; ignore). | 167 | ;; ignore). |
| 168 | (and (eq (dns-get 'type answers) 'SRV) | 168 | (and (eq (dns-get 'type answers) 'SRV) |
| 169 | answers))) | 169 | answers))) |
| 170 | (priorities (and (mapcar (lambda (r) | 170 | (priorities (mapcar (lambda (r) |
| 171 | (dns-get 'priority r)) | 171 | (dns-get 'priority r)) |
| 172 | data))) | 172 | data)) |
| 173 | (max-priority (if priorities | 173 | (max-priority (apply #'max 0 priorities)) |
| 174 | (apply #'max priorities) | 174 | (sum 0) |
| 175 | 0)) | 175 | top) |
| 176 | (sum 0) top) | ||
| 177 | ;; Attempt to find all records with the same maximal | 176 | ;; Attempt to find all records with the same maximal |
| 178 | ;; priority, and calculate the sum of their weights. | 177 | ;; priority, and calculate the sum of their weights. |
| 179 | (dolist (ent data) | 178 | (dolist (ent data) |