(query-dns): Use sit-for to time instead of

accept-process-output, since that doesn't seem to work on udp
sockets.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce4a3a5..23a318d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * dns.el (query-dns): Use sit-for to time instead of
+       accept-process-output, since that doesn't seem to work on udp
+       sockets. 
+
 2004-11-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * rfc2047.el (rfc2047-encode-region): Encode bogus delimiters.

diff --git a/lisp/dns.el b/lisp/dns.el
index 8b84e17..b2001b1 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -386,6 +386,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