[Emacs-diffs] trunk r117460: * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of

[Mario Lang]

------------------------------------------------------------
revno: 117460
revision-id: address@hidden
parent: address@hidden
committer: Mario Lang <address@hidden>
branch nick: trunk
timestamp: Tue 2014-07-01 20:48:24 +0200
message:
  * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of
  customization option `gnutls-verify-error.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/gnutls.el             gnutls.el-20100926054902-dzayyj6wycit6kzn-5

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-01 18:13:28 +0000
+++ b/lisp/ChangeLog    2014-07-01 18:48:24 +0000
@@ -1,3 +1,8 @@
+2014-07-01  Mario Lang  <address@hidden>
+
+       * net/gnutls.el (gnutls-negotiate): Prevent destructive modification of
+       cosutomization option `gnutls-verify-error'.
+
 2014-07-01  Stefan Monnier  <address@hidden>
 
        * simple.el (deactivate-mark, set-mark-command, handle-shift-selection):

=== modified file 'lisp/net/gnutls.el'
--- a/lisp/net/gnutls.el        2014-01-01 07:43:34 +0000
+++ b/lisp/net/gnutls.el        2014-07-01 18:48:24 +0000
@@ -214,7 +214,7 @@
                              (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))))