* gnutls.c (Fgnutls_boot): Properly parse :keylist argument.

d96a1e0c · Andreas Schwab · 34348bd4 · d96a1e0c · d96a1e0c
Commit d96a1e0c authored Jul 11, 2012 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/ChangeLog src/ChangeLog +2 -0

src/gnutls.c src/gnutls.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
 2012-07-11  Andreas Schwab  <schwab@linux-m68k.org>
+	* gnutls.c (Fgnutls_boot): Properly parse :keylist argument.
 	* coding.c (Fdefine_coding_system_internal): Use XCAR/XCDR instead
 	of Fcar/Fcdr if possible.
 	* font.c (check_otf_features): Likewise.

--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -916,7 +916,7 @@ one trustfile (usually a CA bundle).  */)
      for (tail = keylist; CONSP (tail); tail = XCDR (tail))
 	{
 	  Lisp_Object keyfile = Fcar (XCAR (tail));
-	  Lisp_Object certfile = Fcar (XCDR (tail));
+	  Lisp_Object certfile = Fcar (Fcdr (XCAR (tail)));
 	  if (STRINGP (keyfile) && STRINGP (certfile))
 	    {
 	      GNUTLS_LOG2 (1, max_log_level, "setting the client key file: ",