Don't delete GnuTLS boot parameters too early

* src/process.c (connect_network_socket): Don't delete the GnuTLS
boot parameters until after we've managed to connect at the IP
level (bug#36660).

diff --git a/src/process.c b/src/process.c
index 5f552675db69df1c0f3f9e50ebdc5a080007a5ac..abadabe77ea055a7a1b97581e4a16adff3ab6093 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -3682,11 +3682,13 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
       Lisp_Object boot, params = p->gnutls_boot_parameters;
 
       boot = Fgnutls_boot (proc, XCAR (params), XCDR (params));
-      p->gnutls_boot_parameters = Qnil;
 
       if (p->gnutls_initstage == GNUTLS_STAGE_READY)
-       /* Run sentinels, etc. */
-       finish_after_tls_connection (proc);
+        {
+          p->gnutls_boot_parameters = Qnil;
+         /* Run sentinels, etc. */
+         finish_after_tls_connection (proc);
+        }
       else if (p->gnutls_initstage != GNUTLS_STAGE_HANDSHAKE_TRIED)
        {
          deactivate_process (proc);