diff options
author | F. Jason Park <jp@neverwas.me> | 2020-12-11 16:36:02 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-12-11 16:36:02 +0100 |
commit | abc8d6b9465fecb989170426756c7ee4b133fd40 (patch) | |
tree | 903d7cf63b573cde9ae6ac6677ea2d3829e6b110 | |
parent | fec05bc6679361909dfd1dbe1abdc944591ec840 (diff) | |
download | emacs-abc8d6b9465fecb989170426756c7ee4b133fd40.tar.gz |
Append incremental message segments in socks-filter
* lisp/net/socks.el (socks-filter): Preserve the order data arrive
instead of semi-reversing it (bug#45162).
Copyright-paperwork-exempt: yes
-rw-r--r-- | lisp/net/socks.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/socks.el b/lisp/net/socks.el index 9b22a5083fb..cb50a0adbea 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -260,7 +260,7 @@ (setq state (process-get proc 'socks-state)) (cond ((= state socks-state-waiting-for-auth) - (cl-callf (lambda (s) (setq string (concat string s))) + (cl-callf (lambda (s) (setq string (concat s string))) (process-get proc 'socks-scratch)) (if (< (length string) 2) nil ; We need to spin some more @@ -272,7 +272,7 @@ ((= state socks-state-authenticated) ) ((= state socks-state-waiting) - (cl-callf (lambda (s) (setq string (concat string s))) + (cl-callf (lambda (s) (setq string (concat s string))) (process-get proc 'socks-scratch)) (setq version (process-get proc 'socks-server-protocol)) (cond @@ -542,7 +542,7 @@ service)) (process-put proc 'socks-buffer buffer) (process-put proc 'socks-host host) - (process-put proc 'socks-service host) + (process-put proc 'socks-service service) (set-process-filter proc nil) (set-process-buffer proc (if buffer (get-buffer-create buffer))) proc)))) |