From: Ted Zlatanov Date: Tue, 25 Nov 2014 14:48:37 +0000 (-0500) Subject: * gnutls.c (Fgnutls_boot): Minor logging fixes. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~3423^2~361 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=2428e38d763614280679ca15b52b8c5076b792f1;p=emacs.git * gnutls.c (Fgnutls_boot): Minor logging fixes. --- 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)); } }