From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Aug 2022 19:22:57 +0000 (+0200)
Subject: Fix compilation warning in spam.el
X-Git-Tag: emacs-29.0.90~1447^2~560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc7dc792dfe514fc66f8e330a4a95ece66560fa4;p=emacs.git

Fix compilation warning in spam.el

* lisp/gnus/spam.el (spam-check-blackholes): Adjust now that
query-dig is obsolete.
---

diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el
index 5af29c0a246..2883a6186bd 100644
--- a/lisp/gnus/spam.el
+++ b/lisp/gnus/spam.el
@@ -43,14 +43,12 @@
 (require 'gnus-uu)                      ; because of key prefix issues
 ;;; for the definitions of group content classification and spam processors
 (require 'gnus)
+(require 'dig)
 
 (eval-when-compile
   (require 'cl-lib)
   (require 'hashcash))
 
-;; autoload query-dig
-(autoload 'query-dig "dig")
-
 ;; autoload spam-report
 (autoload 'spam-report-gmane "spam-report")
 (autoload 'spam-report-gmane-spam "spam-report")
@@ -2008,7 +2006,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
             (unless matches
               (let ((query-string (concat ip "." server)))
                 (if spam-use-dig
-                    (let ((query-result (query-dig query-string)))
+                    (let ((query-result (dig-query query-string)))
                       (when query-result
                         (gnus-message 6 "(DIG): positive blackhole check `%s'"
                                       query-result)