Re: "No DNS server configuration found" when approving spam reports

[Steinar Bang <sb@dod.no>]

[cross-posting to gmane.discuss so that other CVS Gnus using spam
 approvers won't get confused]

>>>>> Reiner Steib <reinersteib+gmane@imap.cc>:

> Please try the current code:

> 	* dns.el (dns-set-servers): Renamed from dns-parse-resolv-conf.  Call
> 	nslookup if resolv.conf isn't available.
> 	(dns-query): Rename from query-dns.
> 	(dns-query-cached): Rename from query-dns-cached.

> Does spam-gmane.el use the functions `query-dns' or
> `query-dns-cached'?  Then they must be renamed there.

It uses query-dns-cached.  I've changed it in my copy, I will notify
Lars about that change as well.

Unfortunately it still doesn't work...:-/

(executable-find "nslookup") works, it returns
"c:/Windows/system32/nslookup.exe"

The entire
      (when (executable-find "nslookup")
	(with-temp-buffer
	  (call-process "nslookup" nil t nil "localhost")
	  (goto-char (point-min))
	  (re-search-forward
	   "^Server:[ \t]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" nil t)
	  (setq dns-servers) (list (match-string 1))))
returns a (nil)

Ah... spotted!  It should look like this:
      (when (executable-find "nslookup")
	(with-temp-buffer
	  (call-process "nslookup" nil t nil "localhost")
	  (goto-char (point-min))
	  (re-search-forward
	   "^Address:[ \t]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" nil t)
	  (setq dns-servers) (list (match-string 1))))