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

[Steinar Bang <sb@dod.no>]

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

>> 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 fails 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")))

When I run just (dns-make-network-process "10.0.0.138") in the *scratch*
buffer, I get the following stack trace:

Debugger entered--Lisp error: (error "Unsupported connection type")
  make-network-process(:name "dns" :coding binary :buffer #<buffer *scratch*> :host "10.0.0.138" :service "domain" :type datagram)
  (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"))
  (let ((server "10.0.0.138") (coding-system-for-read ...) (coding-system-for-write ...)) (if (fboundp ...) (make-network-process :name "dns" :coding ... :buffer ... :host server :service "domain" :type ...) (open-network-stream "dns" ... server "domain")))
  (dns-make-network-process "10.0.0.138")
  eval((dns-make-network-process "10.0.0.138"))
  eval-last-sexp-1(t)
  eval-last-sexp(t)
  eval-print-last-sexp()
  call-interactively(eval-print-last-sexp)
  recursive-edit()
  byte-code("჆ऀ䀀윀=Ħ

No :type datagram in emacs on Windows...?