[Emacs-diffs] master 2428e38 01/01: * gnutls.c (Fgnutls_boot): Minor logging fixes.

[Teodor Zlatanov]

branch: master
commit 2428e38d763614280679ca15b52b8c5076b792f1
Author: Ted Zlatanov <address@hidden>
Date:   Tue Nov 25 09:48:37 2014 -0500

    * 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 922b61a..d78e1cd 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  <address@hidden>
 
diff --git a/src/gnutls.c b/src/gnutls.c
index 604c595..8268901 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));
         }
     }