From dd72a0ca5519d4b0c635aebcd537232ca007cde0 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 1 Jul 2014 20:48:24 +0200 Subject: [PATCH] * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of customization option `gnutls-verify-error. --- lisp/ChangeLog | 5 +++++ lisp/net/gnutls.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f279c7b454..1300cd7b8b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-01 Mario Lang + + * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of + cosutomization option `gnutls-verify-error'. + 2014-07-01 Stefan Monnier * simple.el (deactivate-mark, set-mark-command, handle-shift-selection): diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index ea4c0351be7..0c650f38d95 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -214,7 +214,7 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT." (cl-mapcan (lambda (check) (when (string-match (car check) hostname) - (cdr check))) + (copy-sequence (cdr check)))) gnutls-verify-error)) ;; else it's nil (t nil)))) -- 2.39.5