2003-05-01 Steve Youngs <youngs@xemacs.org>

[gnus] / lisp / dns.el

diff --git a/lisp/dns.el b/lisp/dns.el
index 6c470f5..1a3a903 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -282,11 +282,13 @@ If TCP-P, the first two bytes of the package with be the length field."
 
 ;;; Interface functions.
 
+(autoload 'gnus-xmacs-open-network-stream "gnus-xmas" nil nil 'macro)
+
 (defmacro dns-make-network-process (server)
   (if (featurep 'xemacs)
       `(let ((coding-system-for-read 'binary)
             (coding-system-for-write 'binary))
-        (open-network-stream "dns" (current-buffer) ,server "domain" 'udp))
+        (gnus-xmas-open-network-stream "dns" (current-buffer) ,server "domain" 'udp))
     `(let ((server ,server)
           (coding-system-for-read 'binary)
           (coding-system-for-write 'binary))