Synch to No Gnus 200501120840.

[elisp/gnus.git-] / lisp / dns.el

diff --git a/lisp/dns.el b/lisp/dns.el
index 7add5dc..2d704fe 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -388,6 +388,7 @@ If REVERSEP, look up an IP address."
                      tcp-p))
          (while (and (zerop (buffer-size))
                      (> times 0))
+           (sit-for (/ step 1000.0))
            (accept-process-output process 0 step)
            (decf times step))
          (ignore-errors