Protect against initial handshake failures

[gnu-emacs] / src / process.c

diff --git a/src/process.c b/src/process.c
index e8900715158d2475268938c767c216fc0c8c2a6d..f1c066f46716697208fab81bfe16df6fc228d100 100644 (file)
--- 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))