mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Reiner Steib 2009-04-28 16:57:53 +00:00
parent 4dc5a19d8b
commit 9cc20f6c21
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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

10
lisp/gnus/spam.el
View File

@ -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)))