[elpa] externals/websocket 06dcb68721 095/114: fix QWebsocketServer may send RST during handshake

[ELPA Syncer]

branch: externals/websocket
commit 06dcb68721b1900bc9eb12fa78c15c93c110a4b3
Author: xhcoding <xhcoding@163.com>
Commit: xhcoding <xhcoding@163.com>

    fix QWebsocketServer may send RST during handshake
---
 websocket.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/websocket.el b/websocket.el
index a8a0321540..56f768855e 100644
--- a/websocket.el
+++ b/websocket.el
@@ -744,15 +744,14 @@ to the websocket protocol.
     (when (and (eq 'connecting (websocket-ready-state websocket))
                (memq (process-status conn)
                      (list 'run (if nowait 'connect 'open))))
-      (process-send-string conn
-                           (format "GET %s HTTP/1.1\r\n"
-                                   (let ((path (url-filename url-struct)))
-                                     (if (> (length path) 0) path "/"))))
       (websocket-debug websocket "Sending handshake, key: %s, acceptance: %s"
                        key (websocket-accept-string websocket))
       (process-send-string conn
-                           (websocket-create-headers
-                            url key protocols extensions 
custom-header-alist)))))
+                           (format "GET %s HTTP/1.1\r\n%s"
+                                   (let ((path (url-filename url-struct)))
+                                     (if (> (length path) 0) path "/"))
+                                   (websocket-create-headers
+                                    url key protocols extensions 
custom-header-alist))))))
 
 (defun websocket-process-headers (url headers)
   "On opening URL, process the HEADERS sent from the server."