diff options
| author | Mario Lang <mlang@delysid.org> | 2014-07-01 20:48:24 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-07-01 20:48:24 +0200 |
| commit | dd72a0ca5519d4b0c635aebcd537232ca007cde0 (patch) | |
| tree | 116d10a40c68868e704834d122fc5e0fd99f82fe /lisp/net/gnutls.el | |
| parent | 6372fc12fe9c5d22a825e2c812c4a788cda175f6 (diff) | |
| download | emacs-dd72a0ca5519d4b0c635aebcd537232ca007cde0.tar.gz emacs-dd72a0ca5519d4b0c635aebcd537232ca007cde0.tar.bz2 emacs-dd72a0ca5519d4b0c635aebcd537232ca007cde0.zip | |
* net/gnutls.el (gnutls-negotiate): Prevent destructive modification of
customization option `gnutls-verify-error.
Diffstat (limited to 'lisp/net/gnutls.el')
| -rw-r--r-- | lisp/net/gnutls.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |