From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/48336 Path: main.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.gnus.general Subject: Re: new spam functionality added Date: Sun, 29 Dec 2002 21:31:29 -0500 Organization: =?koi8-r?q?=F4=C5=CF=C4=CF=D2=20=FA=CC=C1=D4=C1=CE=CF=D7?= @ Cienfuegos Sender: owner-ding@hpc.uh.edu Message-ID: References: <87y9brejam.fsf@mail.paradoxical.net> <873ctztyth.fsf@mail.paradoxical.net> <87bs8nsh7g.fsf@mail.paradoxical.net> <87fzxziifw.fsf@wesley.springies.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1041215891 26681 80.91.224.249 (30 Dec 2002 02:38:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 30 Dec 2002 02:38:11 +0000 (UTC) Return-path: Original-Received: from util1.math.uh.edu ([129.7.128.22]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Spog-0006wD-00 for ; Mon, 30 Dec 2002 03:38:10 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by util1.math.uh.edu with esmtp (Exim 4.10) id 18Spkc-0000xV-00; Sun, 29 Dec 2002 20:33:58 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 29 Dec 2002 20:33:13 -0600 (CST) Original-Received: from ns2.beld.net (ns2.beld.net [208.229.215.82]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id UAA11327 for ; Sun, 29 Dec 2002 20:32:48 -0600 (CST) Original-Received: from heechee.beld.net (dhcp-0-30-bd-1-93-b2.cpe.beld.net [24.233.65.6]) by ns2.beld.net (Postfix) with ESMTP id A0C0A3BA8E for ; Sun, 29 Dec 2002 21:31:23 -0500 (EST) Original-To: ding@hpc.uh.edu X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" Mail-Followup-To: ding@hpc.uh.edu In-Reply-To: (Lars Magne Ingebrigtsen's message of "Mon, 30 Dec 2002 01:10:01 +0100") User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2 (i686-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:48336 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:48336 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" # "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