* Error sending while unplugged
@ 2003-11-29 20:15 Nevin Kapur
2003-11-30 2:57 ` Kevin Greiner
0 siblings, 1 reply; 4+ messages in thread
From: Nevin Kapur @ 2003-11-29 20:15 UTC (permalink / raw)
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)
-Nevin
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Error sending while unplugged
2003-11-29 20:15 Error sending while unplugged Nevin Kapur
@ 2003-11-30 2:57 ` Kevin Greiner
2003-11-30 14:15 ` Kevin Greiner
0 siblings, 1 reply; 4+ messages in thread
From: Kevin Greiner @ 2003-11-30 2:57 UTC (permalink / raw)
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.
Kevin
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Error sending while unplugged
2003-11-30 2:57 ` Kevin Greiner
@ 2003-11-30 14:15 ` Kevin Greiner
2003-12-01 22:32 ` Nevin Kapur
0 siblings, 1 reply; 4+ messages in thread
From: Kevin Greiner @ 2003-11-30 14:15 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Error sending while unplugged
2003-11-30 14:15 ` Kevin Greiner
@ 2003-12-01 22:32 ` Nevin Kapur
0 siblings, 0 replies; 4+ messages in thread
From: Nevin Kapur @ 2003-12-01 22:32 UTC (permalink / raw)
Kevin Greiner <kgreiner@xpediantsolutions.com> writes:
>> 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.
The problem has been fixed. Thanks.
-Nevin
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2003-12-01 22:32 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-11-29 20:15 Error sending while unplugged Nevin Kapur
2003-11-30 2:57 ` Kevin Greiner
2003-11-30 14:15 ` Kevin Greiner
2003-12-01 22:32 ` Nevin Kapur
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).