From: Ted Zlatanov <tzz@lifelogs.com>
Date: Tue, 25 Nov 2014 10:15:23 +0000 (-0500)
Subject: * gnutls.c (Fgnutls_peer_status): Check GNUTLS_INITSTAGE, not gnutls_p.
X-Git-Tag: emacs-25.0.90~2635^2~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10f2f8aafa5de5821718cc4a7fc8ed87dfdf895a;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 448de36eb05..220c2bfd771 100644
--- 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 dd9c8015ca1..bfa6078eabd 100644
--- 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. */