* net/gnutls.el (gnutls-negotiate): Prevent destructive modification of

customization option `gnutls-verify-error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f279c7b45474cc736082520fb50e308cc7ac0e3..1300cd7b8b88d53f3b3e7b7d9bebc23833e17f66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-01  Mario Lang  <mlang@delysid.org>
+
+       * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of
+       cosutomization option `gnutls-verify-error'.
+
 2014-07-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (deactivate-mark, set-mark-command, handle-shift-selection):

diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index ea4c0351be78a0a4212ee526fa7f0f9c57855632..0c650f38d9526912b0853cc874fbb101afecb8b6 100644 (file)
--- 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))))