[Emacs-diffs] feature/async-dns 2d7af7e: Protect against initial handshake failures

[Lars Ingebrigtsen]

branch: feature/async-dns
commit 2d7af7e206c746bc774ae34de88dc2c20ea1b07d
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 src/process.c |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/process.c b/src/process.c
index e890071..f1c066f 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))