From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Feb 2016 02:58:03 +0000 (+0100)
Subject: Better async error reporting
X-Git-Tag: emacs-26.0.90~2520^2~39
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf4bbfe16d7d676d56cb9ed661684b17318d333f;p=emacs.git

Better async error reporting

* process.c (connect_network_socket): Mark failed processes
with a better error message.
(check_for_dns): Ditto.
---

diff --git a/src/process.c b/src/process.c
index 8849b20172f..b6721ada607 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3311,8 +3311,12 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
       p->gnutls_boot_parameters = Qnil;
       boot = Fgnutls_boot (proc, XCAR (params), XCDR (params));
       if (NILP (boot) || STRINGP (boot)) {
-	pset_status (p, Qfailed);
 	deactivate_process (proc);
+	if (NILP (boot))
+	  pset_status (p, list2 (Qfailed,
+				 build_string ("TLS negotiation failed")));
+	else
+	  pset_status (p, list2 (Qfailed, boot));
       }
     }
 #endif
@@ -4614,8 +4618,12 @@ check_for_dns (Lisp_Object proc)
   /* The DNS lookup failed. */
   else
     {
-      pset_status (p, Qfailed);
       deactivate_process (proc);
+      pset_status (p, (list2
+		       (Qfailed,
+			concat3 (build_string ("Name lookup of "),
+				 build_string (p->dns_requests[0]->ar_name),
+				 build_string (" failed")))));
     }
 
   xfree ((void *)p->dns_requests[0]->ar_request);