mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Append incremental message segments in socks-filter

Browse source 
* lisp/net/socks.el (socks-filter): Preserve the order data arrive
instead of semi-reversing it (bug#45162).

Copyright-paperwork-exempt: yes
This commit is contained in:
F. Jason Park 2020-12-11 16:36:02 +01:00 • committed by Lars Ingebrigtsen
parent fec05bc667
commit abc8d6b946
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/socks.el
View file

@ -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))))