(query-dns): Test.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7bf794..3e27c8e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-31  Lars Magne Ingebrigtsen  <larsi@quimbies.gnus.org>
+
+       * dns.el (query-dns): Test.
+
 2002-03-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * lpath.el (featurep): Bind make-network-process.

diff --git a/lisp/dns.el b/lisp/dns.el
index 5f81a21..1c5b4b6 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -263,7 +263,7 @@
   "Query a DNS server for NAME of TYPE."
   (setq type (or type 'A))
   (mm-with-unibyte-buffer
-    (let ((coding-system-for-read 'binary)
+    (let ((coding-system-for-read 'binary) 
          (coding-system-for-write 'binary))
       (let ((process
             (make-network-process