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)
This commit is contained in:
F. Jason Park 2022-03-28 02:24:43 -07:00
parent 93f9f6866a
commit 37e26fc537

View file

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