From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Feb 2016 04:43:17 +0000 (+0100)
Subject: Return the correct server port number
X-Git-Tag: emacs-26.0.90~2520^2~37
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76bf44370e7b1215bb8f6125eea03102fc8f786d;p=emacs.git

Return the correct server port number

* process.c (connect_network_socket): Return the correct
server port number.
---

diff --git a/src/process.c b/src/process.c
index b6721ada607..10c79ab14a3 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3104,6 +3104,9 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
 		  Lisp_Object service;
 		  service = make_number (ntohs (sa1.sin_port));
 		  contact = Fplist_put (contact, QCservice, service);
+		  // Save the port number so that we can stash it in
+		  // the process object later.
+		  ((struct sockaddr_in *)sa)->sin_port = sa1.sin_port;
 		}
 	    }
 #endif