master 37e26fc537 2/5: Don't send reports in erc-dcc-get-filter when nested

[F. Jason Park]

branch: master
commit 37e26fc5379715010297adff5109736b7ede5cd7
Author: F. Jason Park <jp@neverwas.me>
Commit: F. Jason Park <jp@neverwas.me>

    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)
---
 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 a37dc7caa3..2a06efdaa4 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.