From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54994 Path: main.gmane.org!not-for-mail From: Kevin Greiner Newsgroups: gmane.emacs.gnus.general Subject: Re: Error sending while unplugged Date: Sun, 30 Nov 2003 08:15:38 -0600 Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1070201763 4766 80.91.224.253 (30 Nov 2003 14:16:03 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 30 Nov 2003 14:16:03 +0000 (UTC) Original-X-From: ding-owner+M3534@lists.math.uh.edu Sun Nov 30 15:16:00 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AQSMh-0006eB-00 for ; Sun, 30 Nov 2003 15:16:00 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AQSMZ-0001hV-00; Sun, 30 Nov 2003 08:15:51 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AQSMU-0001hQ-00 for ding@lists.math.uh.edu; Sun, 30 Nov 2003 08:15:46 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 111563A0025 for ; Sun, 30 Nov 2003 08:15:46 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1AQSMT-0002wj-00 for ; Sun, 30 Nov 2003 15:15:45 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 60 Original-NNTP-Posting-Host: dialup-216-12-206-130.ev1.net Original-X-Trace: quimby.gnus.org 1070201744 11103 216.12.206.130 (30 Nov 2003 14:15:44 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Sun, 30 Nov 2003 14:15:44 +0000 (UTC) User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (windows-nt) Cancel-Lock: sha1:09Vmsx6sICLSpjrdLMTJ7oCcv8Q= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:54994 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54994 Kevin Greiner writes: > Nevin Kapur writes: > >> Trying to send something while unplugged resulted in the following >> error. This seems related to the recent changes in the agent code. >> >> -Nevin >> >> Debugger entered--Lisp error: (wrong-type-argument listp "nnimap:Caltech") >> car("nnimap:Caltech") >> (eq (car m1) (car m2)) >> (and (eq (car m1) (car m2)) (or (not ...) (equal ... ...))) >> (or (equal m1 m2) (and (eq ... ...) (or ... ...))) >> (let ((m1 ...) (m2 ...)) (or (equal m1 m2) (and ... ...))) >> gnus-methods-equal-p((nntp "News.CIS.DFN.DE") "nnimap:Caltech") >> (if (gnus-methods-equal-p (cdr name-method) method) (progn (unless ... ...) (throw ... ...))) >> (when (gnus-methods-equal-p (cdr name-method) method) (unless (member name-method gnus-server-method-cache) (push name-method gnus-server-method-cache)) (throw (quote server-name) (car name-method))) >> (lambda (name-method) (when (gnus-methods-equal-p ... method) (unless ... ...) (throw ... ...)))(("native" nntp "News.CIS.DFN.DE")) >> mapc((lambda (name-method) (when (gnus-methods-equal-p ... method) (unless ... ...) (throw ... ...))) (("native" nntp "News.CIS.DFN.DE"))) >> (lambda (server-alist) (mapc (lambda ... ...) server-alist))((("native" nntp "News.CIS.DFN.DE"))) >> mapc((lambda (server-alist) (mapc (lambda ... ...) server-alist)) ((("native" nntp "News.CIS.DFN.DE")) (("archive" nnfolder "archive" ... ... ... ...)) (("cache" nnspool "cache" ... ... ...)))) >> (catch (quote server-name) (setq method (or method gnus-select-method)) (mapc (lambda ... ...) gnus-server-method-cache) (mapc (lambda ... ...) (let ... ... alists)) (let* (... ...) (unless ... ...) name)) >> gnus-method-to-server("nnimap:Caltech") >> (member (gnus-method-to-server method) gnus-agent-covered-methods) >> (cons method (member (gnus-method-to-server method) gnus-agent-covered-methods)) >> (setq gnus-agent-method-p-cache (cons method (member ... gnus-agent-covered-methods))) >> (or (eq (car gnus-agent-method-p-cache) method) (setq gnus-agent-method-p-cache (cons method ...))) >> gnus-agent-method-p("nnimap:Caltech") >> (setq covered (gnus-agent-method-p (car methods)) methods (cdr methods)) >> (while (and (not covered) methods) (setq covered (gnus-agent-method-p ...) methods (cdr methods))) >> (let* ((gcc ...) (methods ...) covered) (while (and ... methods) (setq covered ... methods ...)) covered) >> (save-restriction (message-narrow-to-headers) (let* (... ... covered) (while ... ...) covered)) >> gnus-agent-any-covered-gcc() >> (and (not gnus-plugged) (gnus-agent-any-covered-gcc)) >> (if (and (not gnus-plugged) (gnus-agent-any-covered-gcc)) (progn (save-excursion ... ...))) >> (when (and (not gnus-plugged) (gnus-agent-any-covered-gcc)) (save-excursion (goto-char ...) (let ... ...))) >> gnus-agent-possibly-save-gcc() >> run-hooks(message-header-hook) >> message-send-mail(nil) >> message-send-via-mail(nil) >> message-send(nil) >> message-send-and-exit(nil) >> * call-interactively(message-send-and-exit) > > You're correct in that it is related. Unfortunately, it's a rather > interesting relationship. I did rewrite the gnus-agent-method-p > function. However, neither the old, nor the new, versions accepted a > server name such as "nnimap:Caltech". The old difference is that the > old version quietly returned nil while the new version throws the > error that you reported. This would seem to indicate that > gnus-agent-any-covered-gcc has always been buggy. > > I'm going to fix gnus-agent-method-p so that it will accept a server. > That may change the behavior of gnus-agent-any-covered-gcc as > gnus-agent-method-p may now return t. Please keep me informed. OK, the patch has been checked into gnus.el. Kevin