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

[Steinar Bang <sb@dod.no>]

>>>>> Steinar Bang <sb@dod.no>:

>>>>> 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...:-/
[snip!]
> 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))))

Now the dns-set-servers function works in isolation.

(dns-set-servers)
("10.0.0.138")

But the dns-query and dns-query-cached functions still don't work:

(dns-query-cached "www.gnus.org")
"No DNS server configuration found"

Ah... a possible typo on the last line of dns-set-servers:

Perhaps
	  (setq dns-servers) (list (match-string 1))))))
should be
	  (setq dns-servers (list (match-string 1)))))))

I will rebuild and restart Gnus, and try again.

I did a dry run in the *scratch* buffer with a new defun of
dns-set-servers and an evaluation of a dns-query-cached query, and I
still got the "No DNS server configuration found" message, but I'm
trying a complete restart to be sure that no byte compilation stuff is
fooling me...