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

[Steinar Bang <sb@dod.no>]

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

>> What I'll try now is to exit the emacs alltogether, then start up a
>> fresh emacs, load-library dns.el, set the breakpoint, start gnus, and
>> then enter the spam approval group.

> Ok.  Now I've been successful in stopping in the dns-query function.
> What I did, was:
>  - Start a fresh emacs
>  - `M-x load-library dns.el RET'
>  - open the dns.el file and do `C-u C-M-x' over "defun" in the defun
>    form for the dns-query function
>  - start gnus with `M-x gnus-slave RET' (this is written from the master
>    gnus emacs...)
>  - enter the spam approval group, and this time it stopped in the edebug
>    in the dns-query function

> The place the dns-query function fails, is in the call to
> dns-make-network-process, and in dns-make-network-process the place it
> falls is here
>     `(let ((server ,server)
> when I press SPC when the cursor is placed after the closing parantheses
> on the above line.

Some more details:
 - Before pressing space, the cursor is positioned over the quote `
 - After pressing space the cursor is positioned over the )
 - The minibuffer displays the text "Result: (car dns-servers)"
 - After the next space the cursor is positioned on top of the
   second-to-last closing parantheses in this line
	 (open-network-stream "dns" (current-buffer) server "domain")))))
   and the minibuffer displays:
Result: (let ((server (car dns-servers)) (coding-system-for-read (quote binary)) (coding-system-for-write (quote binary))) (if (fboundp (quote make-network-process)) (make-network-process :name "dns" :coding (quote binary) :buffer (current-buffer) :host server :service "domain" :type (quote datagram)) (open-network-stream "dns" (current-buffer) server "domain")))