X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2846c6e3607995ce250435e5998ea6a08f60dd89..24d2266c2003adab99cb30587a353c4663af7ddf:/lisp/gnus/spam.el

diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index ca274268c7..c315f2f034 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -1,6 +1,6 @@
 ;;; spam.el --- Identifying spam
 
-;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -73,8 +73,8 @@
 (autoload 'gnus-registry-store-extra-entry "gnus-registry")
 (autoload 'gnus-registry-fetch-extra "gnus-registry")
 
-;; autoload query-dns
-(autoload 'query-dns "dns")
+;; autoload dns-query
+(autoload 'dns-query "dns")
 
 ;;}}}
 
@@ -173,7 +173,7 @@ The regular expression is matched against the address."
   :group 'spam)
 
 (defcustom spam-use-dig t
-  "Whether `query-dig' should be used instead of `query-dns'."
+  "Whether `query-dig' should be used instead of `dns-query'."
   :type 'boolean
   :group 'spam)
 
@@ -2038,9 +2038,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 			(push (list ip server query-result)
 			      matches)))
 		  ;; else, if not using dig.el
-		  (when (query-dns query-string)
+		  (when (dns-query query-string)
 		    (gnus-message 6 "positive blackhole check")
-		    (push (list ip server (query-dns query-string 'TXT))
+		    (push (list ip server (dns-query query-string 'TXT))
 			  matches)))))))))
     (when matches
       spam-split-group)))