[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master abc8d6b: Append incremental message segments in socks-filter
From: |
Lars Ingebrigtsen |
Subject: |
master abc8d6b: Append incremental message segments in socks-filter |
Date: |
Fri, 11 Dec 2020 10:37:44 -0500 (EST) |
branch: master
commit abc8d6b9465fecb989170426756c7ee4b133fd40
Author: F. Jason Park <jp@neverwas.me>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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
---
lisp/net/socks.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index 9b22a50..cb50a0a 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master abc8d6b: Append incremental message segments in socks-filter,
Lars Ingebrigtsen <=