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

diff --git a/src/ChangeLog b/src/ChangeLog
index 922b61a92e397fc86007faf8818b4179c8d0f883..d78e1cd49eba52df1b9fcef30326d4215d6a4437 100644 (file)
--- 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 604c595622d8d6e7c80fef7fa5a03c87493052cb..8268901265b4c71d378dead5532a289351229bbf 100644 (file)
--- 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));
         }
     }