From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 15 Feb 2016 09:10:10 +0000 (+1100)
Subject: Protect against initial handshake failures
X-Git-Tag: emacs-26.0.90~2520^2~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d7af7e206c746bc774ae34de88dc2c20ea1b07d;p=emacs.git

Protect against initial handshake failures

* src/process.c (connect_network_socket): Mark the connection
as failed if the handshake didn't succeed yet.  This should be
reworked later.
---

diff --git a/src/process.c b/src/process.c
index e8900715158..f1c066f4671 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3332,7 +3332,8 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
       boot = Fgnutls_boot (proc, XCAR (params), XCDR (params));
       p->gnutls_boot_parameters = Qnil;
 
-      if (NILP (boot) || STRINGP (boot))
+      if (NILP (boot) || STRINGP (boot) ||
+	  p->gnutls_initstage != GNUTLS_STAGE_READY)
 	{
 	  deactivate_process (proc);
 	  if (NILP (boot))