(open-network-stream): Take a :nowait parameter and pass it on to `make-network-process'.

1 files changed, 9 insertions, 4 deletions

diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 09519e14870..2071f790656 100644
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -109,7 +109,10 @@ values:
 :starttls-function specifies a function for handling STARTTLS.
   This function should take one parameter, the response to the
   capability command, and should return the command to switch on
-  STARTTLS if the server supports STARTTLS, and nil otherwise."
+  STARTTLS if the server supports STARTTLS, and nil otherwise.
+
+:nowait is a boolean that says the connection should be made
+asynchronously, if possible."
   (unless (featurep 'make-network-process)
     (error "Emacs was compiled without networking support"))
   (let ((type (plist-get parameters :type))
@@ -121,7 +124,8 @@ values:
 				(plist-get parameters :capability-command))))))
 	;; The simplest case: wrapper around `make-network-process'.
 	(make-network-process :name name :buffer buffer
-			      :host host :service service)
+			      :host host :service service
+			      :nowait (plist-get parameters :nowait))
       (let ((work-buffer (or buffer
 			     (generate-new-buffer " *stream buffer*")))
 	    (fun (cond ((eq type 'plain) 'network-stream-open-plain)
@@ -150,10 +154,11 @@ values:
 (defun network-stream-open-plain (name buffer host service parameters)
   (let ((start (with-current-buffer buffer (point)))
 	(stream (make-network-process :name name :buffer buffer
-				      :host host :service service)))
+				      :host host :service service
+				      :nowait (plist-get parameters :nowait))))
     (list stream
 	  (network-stream-get-response stream start
-				     (plist-get parameters :end-of-command))
+				       (plist-get parameters :end-of-command))
 	  nil
 	  'plain)))