Mercurial > emacs

comparison lisp/gnus/spam.el @ 103091:0062b68a76c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use dns-query instead of query-dns. Was renamed on 2008-12-25 in dns.el.
author Reiner Steib <Reiner.Steib@gmx.de>
date Tue, 28 Apr 2009 16:57:53 +0000
parents a9dc0e7c3f2b
children 9866b069527c
comparison
equal deleted inserted replaced
103090:60e16972e785 103091:0062b68a76c3
71 (autoload 'gnus-registry-group-count "gnus-registry") 71 (autoload 'gnus-registry-group-count "gnus-registry")
72 (autoload 'gnus-registry-add-group "gnus-registry") 72 (autoload 'gnus-registry-add-group "gnus-registry")
73 (autoload 'gnus-registry-store-extra-entry "gnus-registry") 73 (autoload 'gnus-registry-store-extra-entry "gnus-registry")
74 (autoload 'gnus-registry-fetch-extra "gnus-registry") 74 (autoload 'gnus-registry-fetch-extra "gnus-registry")
75 75
76 ;; autoload query-dns 76 ;; autoload dns-query
77 (autoload 'query-dns "dns") 77 (autoload 'dns-query "dns")
78 78
79 ;;}}} 79 ;;}}}
80 80
81 ;;{{{ Main parameters. 81 ;;{{{ Main parameters.
82 (defvar spam-backends nil 82 (defvar spam-backends nil
171 The regular expression is matched against the address." 171 The regular expression is matched against the address."
172 :type 'file 172 :type 'file
173 :group 'spam) 173 :group 'spam)
174 174
175 (defcustom spam-use-dig t 175 (defcustom spam-use-dig t
176 "Whether `query-dig' should be used instead of `query-dns'." 176 "Whether `query-dig' should be used instead of `dns-query'."
177 :type 'boolean 177 :type 'boolean
178 :group 'spam) 178 :group 'spam)
179 179
180 (defcustom spam-use-gmane-xref nil 180 (defcustom spam-use-gmane-xref nil
181 "Whether the Gmane spam xref should be used by `spam-split'." 181 "Whether the Gmane spam xref should be used by `spam-split'."
2036 (gnus-message 6 "(DIG): positive blackhole check '%s'" 2036 (gnus-message 6 "(DIG): positive blackhole check '%s'"
2037 query-result) 2037 query-result)
2038 (push (list ip server query-result) 2038 (push (list ip server query-result)
2039 matches))) 2039 matches)))
2040 ;; else, if not using dig.el 2040 ;; else, if not using dig.el
2041 (when (query-dns query-string) 2041 (when (dns-query query-string)
2042 (gnus-message 6 "positive blackhole check") 2042 (gnus-message 6 "positive blackhole check")
2043 (push (list ip server (query-dns query-string 'TXT)) 2043 (push (list ip server (dns-query query-string 'TXT))
2044 matches))))))))) 2044 matches)))))))))
2045 (when matches 2045 (when matches
2046 spam-split-group))) 2046 spam-split-group)))
2047 ;;}}} 2047 ;;}}}
2048 2048