Use dns-query instead of query-dns. Was renamed on 2008-12-25 in dns.el.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 82cd077d0db..de21ccf716c 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-28  Reiner Steib  <Reiner.Steib@gmx.de>
+
+        * spam.el: Use dns-query instead of query-dns.  Was renamed on
+        2008-12-25 in dns.el.
+
 2009-04-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * rfc2047.el (rfc2047-decode-region): Don't skip past `start', which
diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index b7d1a13b697..c315f2f0347 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -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)))