From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68006 Path: news.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.discuss,gmane.emacs.gnus.general Subject: Re: "No DNS server configuration found" when approving spam reports Date: Sun, 28 Dec 2008 12:20:12 +0100 Organization: Probably a good idea Message-ID: References: <8763l8l7y5.fsf@marauder.physik.uni-ulm.de> <87prjgjg5x.fsf@marauder.physik.uni-ulm.de> <877i5mkfb1.fsf@marauder.physik.uni-ulm.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1230463256 18045 80.91.229.12 (28 Dec 2008 11:20:56 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 28 Dec 2008 11:20:56 +0000 (UTC) Cc: ding@gnus.org To: gmane-discuss@hawk.netfonds.no Original-X-From: gmane-discuss-bounces@hawk.netfonds.no Sun Dec 28 12:22:03 2008 Return-path: Envelope-to: gd-gmane-discuss@m.gmane.org Original-Received: from hawk.netfonds.no ([80.91.224.246]) by lo.gmane.org with esmtp (Exim 4.50) id 1LGtiX-000623-Mi for gd-gmane-discuss@m.gmane.org; Sun, 28 Dec 2008 12:21:57 +0100 Original-Received: from localhost ([127.0.0.1] helo=hawk.netfonds.no) by hawk.netfonds.no with esmtp (Exim 3.36 #1 (Debian)) id 1LGthK-0004Ja-00; Sun, 28 Dec 2008 12:20:42 +0100 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by hawk.netfonds.no with esmtp (Exim 3.36 #1 (Debian)) id 1LGthI-0004JV-00 for ; Sun, 28 Dec 2008 12:20:40 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1LGthD-0000aO-Mo for gmane-discuss@hawk.netfonds.no; Sun, 28 Dec 2008 11:20:35 +0000 Original-Received: from ti0064a340-0073.bb.online.no ([88.90.181.73]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 28 Dec 2008 11:20:35 +0000 Original-Received: from sb by ti0064a340-0073.bb.online.no with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 28 Dec 2008 11:20:35 +0000 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: gmane-discuss@hawk.netfonds.no Original-Lines: 34 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: ti0064a340-0073.bb.online.no Mail-Copies-To: never User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.3 (windows-nt) Cancel-Lock: sha1:F3VrRjETfOL5bb3qncw7/F7iG1A= X-BeenThere: gmane-discuss@hawk.netfonds.no X-Mailman-Version: 2.1.5 Precedence: list List-Id: gmane-discuss.hawk.netfonds.no List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: gmane-discuss-bounces@hawk.netfonds.no Errors-To: gmane-discuss-bounces@hawk.netfonds.no Xref: news.gmane.org gmane.discuss:12089 gmane.emacs.gnus.general:68006 Archived-At: >>>>> Steinar Bang : >> 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")))