- ;; Wait until we get something so we don't DOS the host.
- (while (and (memq (process-status tcp-connection) '(open run))
- (zerop (buffer-size)))
- (accept-process-output tcp-connection)))))
+ ;; Wait until we get something so we don't DOS the host, if
+ ;; `spam-report-gmane-wait' is let-bound to t.
+ (when spam-report-gmane-wait
+ (gnus-message 7 "Waiting for response from %s..." host)
+ (while (and (memq (process-status tcp-connection) '(open run))
+ (zerop (buffer-size)))
+ (accept-process-output tcp-connection 1))
+ (gnus-message 7 "Waiting for response from %s... done" host)))))