* gnutls.c (Fgnutls_peer_status): Check GNUTLS_INITSTAGE, not gnutls_p.

diff --git a/src/ChangeLog b/src/ChangeLog
index 448de36eb0555da527330f022a7cfbd3b389a0b5..220c2bfd77191d17233195848205642ca4e07a85 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnutls.c (Fgnutls_peer_status): Check GNUTLS_INITSTAGE, not gnutls_p.
+
 2014-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnutls.c: Fix compilation warnings given fix --enable-gcc-warnings.

diff --git a/src/gnutls.c b/src/gnutls.c
index dd9c8015ca106e0e629a4acea7db0d0050529aa6..bfa6078eabd5634ed78e90ef5953fb1c5b271af4 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -978,7 +978,7 @@ The return value is a property list.  */)
 
   CHECK_PROCESS (proc);
 
-  if (XPROCESS (proc)->gnutls_p == 0)
+  if ( GNUTLS_INITSTAGE (proc) < GNUTLS_STAGE_INIT )
     return Qnil;
 
   /* Then collect any warnings already computed by the handshake. */