diff options
author | Robert Pluim <rpluim@gmail.com> | 2018-04-13 14:24:11 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-13 14:24:11 +0200 |
commit | d5cf7330fa72a81b779628c14a0a19f3fc180f22 (patch) | |
tree | 8bcac0a4488c95845ed10d4f8b5f59b2df6f4dcb /lisp/net/gnutls.el | |
parent | feb5b442f7c2db738b9c94069600c309061bc5b0 (diff) | |
download | emacs-d5cf7330fa72a81b779628c14a0a19f3fc180f22.tar.gz |
Change gnutls-verify-error to be first-match
* lisp/net/gnutls.el (gnutls-boot-parameters): Convert to
first-match for gnutls-verify-error rather than any-match
(bug#29977).
Diffstat (limited to 'lisp/net/gnutls.el')
-rw-r--r-- | lisp/net/gnutls.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 85c9308c0d2..cce4962758d 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -282,13 +282,9 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT." t) ;; if a list, look for hostname matches ((listp gnutls-verify-error) - (apply 'append - (mapcar - (lambda (check) - (when (string-match (nth 0 check) - hostname) - (nth 1 check))) - gnutls-verify-error))) + (cadr (cl-find-if #'(lambda (x) + (string-match (car x) hostname)) + gnutls-verify-error))) ;; else it's nil (t nil)))) (min-prime-bits (or min-prime-bits gnutls-min-prime-bits))) |