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

customization option `gnutls-verify-error.

2 files changed, 6 insertions, 1 deletions

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  <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 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))))