Is `gnutls-negotiate' missing a `copy-sequence'?

[Mario Lang <mlang@delysid.org>]

Hi.

Just noticed this piece of code in `gnutls-negotiate':

         (verify-error (or verify-error
                           ;; this uses the value of `gnutls-verify-error'
                           (cond
                            ;; if t, pass it on
                            ((eq gnutls-verify-error t)
                             t)
                            ;; if a list, look for hostname matches
                            ((listp gnutls-verify-error)
                             (cl-mapcan
                              (lambda (check)
                                (when (string-match (car check) hostname)
                                  (cdr check)))
                              gnutls-verify-error))
                            ;; else it's nil
                            (t nil))))

Hmm, `gnutls-verify-error' is a defcustom, and `cl-mapcan' will
destructively modify it.  Am I missing something, or should we add a
`copy-sequence' around the `cdr'?

-- 
CYa,
  ⡍⠁⠗⠊⠕