From: Kevin Greiner <kgreiner@xpediantsolutions.com>
Subject: Re: Error sending while unplugged
Date: Sun, 30 Nov 2003 08:15:38 -0600 [thread overview]
Message-ID: <uhe0m3pth.fsf@xpediantsolutions.com> (raw)
In-Reply-To: <uk75i7ecx.fsf@xpediantsolutions.com>
Kevin Greiner <kgreiner@xpediantsolutions.com> writes:
> Nevin Kapur <nkapur@cs.caltech.edu> 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
next prev parent reply other threads:[~2003-11-30 14:15 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-11-29 20:15 Nevin Kapur
2003-11-30 2:57 ` Kevin Greiner
2003-11-30 14:15 ` Kevin Greiner [this message]
2003-12-01 22:32 ` Nevin Kapur
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=uhe0m3pth.fsf@xpediantsolutions.com \
--to=kgreiner@xpediantsolutions.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).