[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#29977: gnutls-verify-error does not allow matching hostnames
From: |
Robert Pluim |
Subject: |
bug#29977: gnutls-verify-error does not allow matching hostnames |
Date: |
Thu, 04 Jan 2018 16:17:54 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.0.90 (gnu/linux) |
(this is emacs-26)
Given a gnutls-verify-error of
'(("news.gmane.org" nil)
(".*" (:trustfiles :hostname)))
gnutls-boot-parameters will always use (:trustfiles :hostname) even
though the intent is to turn off verification for news.gmane.org.
Proposed patch converts this to first-match, which I think matches the
intent of the variable.
>From 2935008e42d956607bf1893ea6507db6202b3eb1 Mon Sep 17 00:00:00 2001
From: Robert Pluim <rpluim@gmail.com>
Date: Thu, 4 Jan 2018 16:12:47 +0100
Subject: [PATCH] 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
---
lisp/net/gnutls.el | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index 5afd5c5804..c8f4824b53 100644
--- a/lisp/net/gnutls.el
+++ b/lisp/net/gnutls.el
@@ -282,13 +282,9 @@ gnutls-log-level
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)))
--
2.16.0.rc0
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#29977: gnutls-verify-error does not allow matching hostnames,
Robert Pluim <=