From: F. Jason Park <jp@neverwas.me>
Date: Mon, 28 Mar 2022 09:24:43 +0000 (-0700)
Subject: Don't send reports in erc-dcc-get-filter when nested
X-Git-Tag: emacs-29.0.90~1910^2~502
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37e26fc5379715010297adff5109736b7ede5cd7;p=emacs.git

Don't send reports in erc-dcc-get-filter when nested

* lisp/erc/erc-dcc.el (erc-dcc-get-filter): Don't bother sending a
"received so far" receipt if another attempt is still ongoing.
(Bug#54458)
---

diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index a37dc7caa30..2a06efdaa4e 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -986,9 +986,10 @@ rather than every 1024 byte block, but nobody seems to care."
          '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 :reportingp))
+        (process-put proc :reportingp t)
+        (process-send-string proc (erc-pack-int received-bytes))
+        (process-put proc :reportingp nil))))))
 
 (defun erc-dcc-get-sentinel (proc event)
   "This is the process sentinel for CTCP DCC SEND connections.