From 2428e38d763614280679ca15b52b8c5076b792f1 Mon Sep 17 00:00:00 2001 From: Ted Zlatanov Date: Tue, 25 Nov 2014 09:48:37 -0500 Subject: [PATCH] * gnutls.c (Fgnutls_boot): Minor logging fixes. --- src/ChangeLog | 2 +- src/gnutls.c | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 922b61a92e3..d78e1cd49eb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -4,7 +4,7 @@ (Fgnutls_peer_status_warning_describe): Add function to describe a peer verification warning symbol. (Fgnutls_peer_status): Use it. - (Fgnutls_boot): Use it. + (Fgnutls_boot): Use it. Minor logging fixes. 2014-11-24 Lars Magne Ingebrigtsen diff --git a/src/gnutls.c b/src/gnutls.c index 604c595622d..8268901265b 100644 --- a/src/gnutls.c +++ b/src/gnutls.c @@ -1218,6 +1218,8 @@ one trustfile (usually a CA bundle). */) XPROCESS (proc)->gnutls_log_level = max_log_level; } + GNUTLS_LOG2 (1, max_log_level, "connecting to host:", c_hostname); + /* always initialize globals. */ global_init = emacs_gnutls_global_init (); if (! NILP (Fgnutls_errorp (global_init))) @@ -1420,13 +1422,12 @@ one trustfile (usually a CA bundle). */) if ( !NILP (warnings) ) { Lisp_Object tail; - for (tail = warnings; CONSP (tail); tail = XCDR (tail)) { Lisp_Object warning = XCAR (tail); Lisp_Object message = Fgnutls_peer_status_warning_describe (warning); if ( !NILP (message) ) - GNUTLS_LOG2 (1, max_log_level, "verification: %s", SDATA(message)); + GNUTLS_LOG2 (1, max_log_level, "verification:", SDATA(message)); } } -- 2.39.5