Re: new spam functionality added

[Ted Zlatanov <tzz@lifelogs.com>]

OK, let's start with the basics.  dns.elc is removed, everything is
coming out of dns.el which is from the latest CVS Gnus.  I did
spam-check-blackholes on your message, and query-dns was the origin of
the trouble.

(query-dns "244.224.91.80.bl.spamcop.net")

produces:

Debugger entered--Lisp error: (file-error "connection failed" "connection refused" "192.168.2.1" "dns")
  open-network-stream("dns" #<buffer  *temp*> "192.168.2.1" "domain")
  (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 ...) (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 (car dns-servers))
  (let ((process ...) (tcp-p ...) (step 100) (times ...) (id ...)) (process-send-string process (dns-write ... tcp-p)) (while (and ... ...) (accept-process-output process 0 step) (decf times step)) (ignore-errors (delete-process process)) (when tcp-p (goto-char ...) (delete-region ... ...)) (unless (zerop ...) (let ... ...)))
  (save-current-buffer (set-buffer temp-buffer) (let (... ... ... ... ...) (process-send-string process ...) (while ... ... ...) (ignore-errors ...) (when tcp-p ... ...) (unless ... ...)))
  (with-current-buffer temp-buffer (let (... ... ... ... ...) (process-send-string process ...) (while ... ... ...) (ignore-errors ...) (when tcp-p ... ...) (unless ... ...)))
  (unwind-protect (with-current-buffer temp-buffer (let ... ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ...) (and ... ...)))
  (with-temp-buffer (let (... ... ... ... ...) (process-send-string process ...) (while ... ... ...) (ignore-errors ...) (when tcp-p ... ...) (unless ... ...)))
  (let (default-enable-multibyte-characters) (with-temp-buffer (let ... ... ... ... ... ...)))
  (mm-with-unibyte-buffer (let (... ... ... ... ...) (process-send-string process ...) (while ... ... ...) (ignore-errors ...) (when tcp-p ... ...) (unless ... ...)))
  query-dns("244.224.91.80.bl.spamcop.net")
  eval((query-dns "244.224.91.80.bl.spamcop.net"))
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp)

I'm behind a firewall, that's why my DNS server is 192.168.2.1
locally.  It works from the command line:

tzz@heechee> dig 244.224.91.80.bl.spamcop.net

; <<>> DiG 9.2.1 <<>> 244.224.91.80.bl.spamcop.net
;; global options:  printcmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NXDOMAIN, id: 53479
;; flags: qr rd ra; QUERY: 1, ANSWER: 0, AUTHORITY: 0, ADDITIONAL: 0

;; QUESTION SECTION:
;244.224.91.80.bl.spamcop.net.  IN      A

;; Query time: 50 msec
;; SERVER: 192.168.2.1#53(192.168.2.1)
;; WHEN: Sun Dec 29 21:21:30 2002
;; MSG SIZE  rcvd: 46

tzz@heechee> host 244.224.91.80.bl.spamcop.net
Host 244.224.91.80.bl.spamcop.net not found: 3(NXDOMAIN)

I think I'm doing this correctly.  Emacs 21.2.1, latest CVS Gnus.  I
have very little knowledge of the Emacs make-network-process calls and
socket handling so I couldn't debug further, sorry.  The arguments to
make-network-process look reasonable, though.  Could it be using TCP
instead of UDP for some strange reason?

Ted