* gnutls.c (Fgnutls_boot): Minor logging fixes.

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  <larsi@gnus.org>
 
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));
         }
     }