/* GnuTLS glue for GNU Emacs.
- Copyright (C) 2010-2013 Free Software Foundation, Inc.
+ Copyright (C) 2010-2014 Free Software Foundation, Inc.
This file is part of GNU Emacs.
verify_error = Fplist_get (proplist, QCgnutls_bootprop_verify_error);
prime_bits = Fplist_get (proplist, QCgnutls_bootprop_min_prime_bits);
- if (!Flistp (verify_error))
+ if (NILP (Flistp (verify_error)))
error ("gnutls-boot: invalid :verify_error parameter (not a list)");
if (!STRINGP (hostname))
if (peer_verification != 0)
{
- if (EQ (verify_error, Qt)
- || !NILP (Fmember (QCgnutls_bootprop_trustfiles, verify_error)))
+ if (!NILP (Fmember (QCgnutls_bootprop_trustfiles, verify_error)))
{
emacs_gnutls_deinit (proc);
error ("Certificate validation failed %s, verification code %d",
if (!fn_gnutls_x509_crt_check_hostname (gnutls_verify_cert, c_hostname))
{
- if (EQ (verify_error, Qt)
- || !NILP (Fmember (QCgnutls_bootprop_hostname, verify_error)))
+ if (!NILP (Fmember (QCgnutls_bootprop_hostname, verify_error)))
{
fn_gnutls_x509_crt_deinit (gnutls_verify_cert);
emacs_gnutls_deinit (proc);