Fix server connections

* process.c (Fmake_network_process): Make creating server
listening ports work again.

diff --git a/src/process.c b/src/process.c
index e40d7a46267646313e51537187d7262800df9ff7..90e18d720144ac70ddc8fc6c6cbbbccc289d0915 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -3573,7 +3573,13 @@ usage: (make-network-process &rest ARGS)  */)
 
   /* :host HOST -- hostname, ip address, or 'local for localhost.  */
   host = Fplist_get (contact, QChost);
-  if (!NILP (host))
+  if (NILP (host))
+    {
+      /* The "connection" function gets it bind info from the address we're
+        given, so use this dummy address if nothing is specified. */
+      host = build_string ("127.0.0.1");
+    }
+  else
     {
       if (EQ (host, Qlocal))
        /* Depending on setup, "localhost" may map to different IPv4 and/or
@@ -3810,7 +3816,7 @@ usage: (make-network-process &rest ARGS)  */)
 
   /* If we're doing async address resolution, the list of addresses
      here will be nil, so we postpone connecting to the server. */
-  if (NILP (ip_addresses))
+  if (!p->is_server && NILP (ip_addresses))
     {
       int channel;