>From 7f9a7fe1a1ea9208841a4ec600ec25e1a464b71d Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Mon, 28 Mar 2022 02:24:43 -0700 Subject: [PATCH] [EXPERIMENT] regulate ACK updates in erc-dcc-get-filter * lisp/erc/erc-dcc.el (erc-dcc-get-filter): Don't bother sending a "received so far" receipt if another attempt is in progress. --- lisp/erc/erc-dcc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index cc4143bfa2..aaac2277bf 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el @@ -986,9 +986,10 @@ erc-dcc-get-filter 'dcc-get-file-too-long ?f (file-name-nondirectory (buffer-name))) (delete-process proc)) - (t - (process-send-string - proc (erc-pack-int received-bytes))))))) + ((not (process-get proc :sending)) + (process-put proc :sending t) ; should maybe use `erc-dcc-entry-data' + (process-send-string proc (erc-pack-int received-bytes)) + (process-put proc :sending nil)))))) (defun erc-dcc-get-sentinel (proc _event) -- 2.35.1