Problem with current CVS and XEmacs

Problem with current CVS and XEmacs

[Andreas Jaeger]

[-- Attachment #1: Type: text/plain, Size: 1279 bytes --]


Starting current CVS Gnus I get with XEmacs 21.4.13:

Signaling: (wrong-type-argument listp t)
  gnus-read-active-file-1((nntp "gromit.moeb") nil)
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("..." [gnus-slave gnus-current-startup-file gnus-startup-file did-connect level dont-connect gnus-group-quit gnus-run-hooks gnus-startup-hook gnus-make-newsrc-file gnus-dribble-read-file bbb-login add-hook gnus-summary-mode-hook gnus-grouplens-mode gnus-request-create-group "queue" (nndraft "") "drafts" (nndraft "") gnus-setup-news nil gnus-setup-news-hook gnus-start-draft-setup gnus-group-list-groups gnus-group-first-unread-group gnus-configure-windows group gnus-group-set-mode-line gnus-started-hook gnus-use-dribble-file gnus-use-grouplens gnus-agent] 4)
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)
  command-execute(gnus t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


Everything works if I go back to:
$ cvs up -D 2003-12-20 

I can't see directly what's wrong, any ideas?

Andreas
-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SuSE Linux AG, Maxfeldstr. 5, 90409 Nürnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: Problem with current CVS and XEmacs

[Jesper Harder]

Andreas Jaeger <aj@suse.de> writes:

> Starting current CVS Gnus I get with XEmacs 21.4.13:
>
> Signaling: (wrong-type-argument listp t)
>   gnus-read-active-file-1((nntp "gromit.moeb") nil)
>
> Everything works if I go back to:
> $ cvs up -D 2003-12-20 
>
> I can't see directly what's wrong, any ideas?

You could eval `gnus-read-active-file-1' to (possibly) get a better
backtrace.  Or step through it with edebug to locate the place that
signals the error.

Re: Problem with current CVS and XEmacs

[Andreas Jaeger]

[-- Attachment #1: Type: text/plain, Size: 1755 bytes --]

Jesper Harder <harder@ifa.au.dk> writes:

> Andreas Jaeger <aj@suse.de> writes:
>
>> Starting current CVS Gnus I get with XEmacs 21.4.13:
>>
>> Signaling: (wrong-type-argument listp t)
>>   gnus-read-active-file-1((nntp "gromit.moeb") nil)
>>
>> Everything works if I go back to:
>> $ cvs up -D 2003-12-20 
>>
>> I can't see directly what's wrong, any ideas?
>
> You could eval `gnus-read-active-file-1' to (possibly) get a better
> backtrace.  Or step through it with edebug to locate the place that
> signals the error.

I didn't get anything useful out of this :-(, my debug knowledge is
too old.

But I did a binary search and the patch that introduces the breakage
is this one:
--- ChangeLog   22 Dec 2003 11:39:06 -0000      6.2712
+++ ChangeLog   22 Dec 2003 14:07:03 -0000      6.2713
@@ -1,3 +1,17 @@
+2003-12-22  Kevin Greiner <kgreiner@xpediantsolutions.com>
+       * gnus-int.el (gnus-open-server): Fixed the server status such
+       that an agentized server, when opened offline, has a status of
+       offline.  Also fixes bug whereby the agent's backend was called
+       twice to open each server.
+
+       * gnus-start.el (gnus-get-unread-articles-in-group): Autoload
+       gnus-agent-possibly-alter-active rather than inline to resolve
+       compiler warnings.
+
+       * gnus.el (gnus-server-to-method): Added fallback of iterating
+       over gnus-newsrc-alist to resolve names of foreign servers.
+       Should fix recent agent bug.
+

Note that I'm not running agentized at all,

Andreas
-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SuSE Linux AG, Maxfeldstr. 5, 90409 Nürnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: Problem with current CVS and XEmacs

[Kevin Greiner]

Andreas Jaeger <aj@suse.de> writes:

> Jesper Harder <harder@ifa.au.dk> writes:
>
>> Andreas Jaeger <aj@suse.de> writes:
>>
>>> Starting current CVS Gnus I get with XEmacs 21.4.13:
>>>
>>> Signaling: (wrong-type-argument listp t)
>>>   gnus-read-active-file-1((nntp "gromit.moeb") nil)
>>>
>>> Everything works if I go back to:
>>> $ cvs up -D 2003-12-20 
>>>
>>> I can't see directly what's wrong, any ideas?
>>
>> You could eval `gnus-read-active-file-1' to (possibly) get a better
>> backtrace.  Or step through it with edebug to locate the place that
>> signals the error.
>
> I didn't get anything useful out of this :-(, my debug knowledge is
> too old.
>
> But I did a binary search and the patch that introduces the breakage
> is this one:
> --- ChangeLog   22 Dec 2003 11:39:06 -0000      6.2712
> +++ ChangeLog   22 Dec 2003 14:07:03 -0000      6.2713
> @@ -1,3 +1,17 @@
> +2003-12-22  Kevin Greiner <kgreiner@xpediantsolutions.com>
> +       * gnus-int.el (gnus-open-server): Fixed the server status such
> +       that an agentized server, when opened offline, has a status of
> +       offline.  Also fixes bug whereby the agent's backend was called
> +       twice to open each server.
> +
> +       * gnus-start.el (gnus-get-unread-articles-in-group): Autoload
> +       gnus-agent-possibly-alter-active rather than inline to resolve
> +       compiler warnings.
> +
> +       * gnus.el (gnus-server-to-method): Added fallback of iterating
> +       over gnus-newsrc-alist to resolve names of foreign servers.
> +       Should fix recent agent bug.
> +
>
> Note that I'm not running agentized at all,

Andreas,
My apologies for your difficulties.

Well, none of these changes obviously intersect with
gnus-read-active-file-1.  So, I'm going to need to refresh your debug
knowledge.  I'd like you to do the following on a clean (just started)
emacs.

M-x load-library gnus
M-x load-library gnus-start.el
M-x toggle-debug-on-error
M-x gnus

Please post the stack trace that you get.  If you feel comfortable
doing it, it would be helpful to also eval some of the variables
present on the first line of the stack trace.  You can do this my
typing e then a variable name in the debug buffer.

Kevin Greiner

Re: Problem with current CVS and XEmacs

[Bjørn Mork]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:
> Andreas Jaeger <aj@suse.de> writes:
>> Jesper Harder <harder@ifa.au.dk> writes:
>>> Andreas Jaeger <aj@suse.de> writes:
>>>
>>>> Starting current CVS Gnus I get with XEmacs 21.4.13:
>>>>
>>>> Signaling: (wrong-type-argument listp t)
>>>>   gnus-read-active-file-1((nntp "gromit.moeb") nil)
>>>>
>>>> Everything works if I go back to:
>>>> $ cvs up -D 2003-12-20 

I see the same problem.

> Well, none of these changes obviously intersect with
> gnus-read-active-file-1.  So, I'm going to need to refresh your debug
> knowledge.  I'd like you to do the following on a clean (just started)
> emacs.
>
> M-x load-library gnus
> M-x load-library gnus-start.el
> M-x toggle-debug-on-error
> M-x gnus
>
> Please post the stack trace that you get. 

Debugger entered--Lisp error: (wrong-type-argument listp t)
  gnus-find-method-for-group("nnimap+imap.nextra.no:lister.kaffe" ("nnimap+imap.nextra.no:lister.kaffe" 7 ((1 . 1001)) ((seen ...)) "nnimap:imap.nextra.no" ((uidvalidity . "979672149"))))
  (inline (gnus-find-method-for-group (gnus-info-group info) info))
  (gnus-server-equal (inline (gnus-find-method-for-group ... info)) gmethod)
  (inline (gnus-server-equal (inline ...) gmethod))
  (if (inline (gnus-server-equal ... gmethod)) (progn (push ... groups)))
  (when (inline (gnus-server-equal ... gmethod)) (push (gnus-group-real-name ...) groups))
  (while (setq info (pop newsrc)) (when (inline ...) (push ... groups)))
  (let ((newsrc ...) (gmethod ...) groups info) (while (setq info ...) (when ... ...)) (gnus-read-active-file-2 groups method))
  (cond ((and ... ... ...) (let ... ... ...)) ((null method) t) (t (if ... ... ... ... ... ...)))
  (progn (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
  (if (gnus-check-server method) (progn (when ... ...) (cond ... ... ...)))
  (when (gnus-check-server method) (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
  (let (where mesg) (setq where (nth 1 method) mesg (format "Reading active file%s via %s..." ... ...)) (gnus-message 5 mesg) (when (gnus-check-server method) (when ... ...) (cond ... ... ...)))
  gnus-read-active-file-1((nntp "news.online.no" (nntp-address "news.nextra.no")) nil)
  (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil (gnus-read-active-file-1 method force) (quit ... nil)))
  (if (member method methods) nil (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil ... ...)))
  (unless (member method methods) (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil ... ...)))
  (while (setq method (pop methods)) (unless (member method methods) (if ... ... ...)))
  (save-excursion (set-buffer nntp-server-buffer) (while (setq method ...) (unless ... ...)))
  (let ((methods ...) method) (setq gnus-have-read-active-file nil) (save-excursion (set-buffer nntp-server-buffer) (while ... ...)))
  gnus-read-active-file(nil nil)
  (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect))
  (let ((init ...) (nnmail-fetched-sources ...)) (when init (setq gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile)) (when gnus-message-archive-method (unless ... ...)) (when (or ... ...) (gnus-update-active-hashtb-from-killed)) (if gnus-agent (gnus-agent-read-servers-validate)) (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect)) (unless gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache (gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave) (gnus-dribble-eval-file)) (when (and init gnus-slave) (gnus-dribble-clear)) (gnus-update-format-specifications) (when (and ... ... ... ... ... gnus-read-active-file) (gnus-read-all-descriptions-files)) (when (and init gnus-check-new-newsgroups ... ... ... gnus-plugged) (gnus-find-new-newsgroups)) (when (and init gnus-check-bogus-newsgroups gnus-read-active-file ... ...) (gnus-check-bogus-newsgroups)) (when (and gnus-use-nocem ... ...) (gnus-nocem-scan-groups)) (gnus-master-read-slave-newsrc) (let (...) (gnus-get-unread-articles level)))
  gnus-setup-news(nil nil nil)
  (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks (quote gnus-startup-hook)) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file)) (when gnus-use-grouplens (bbb-login) (add-hook ... ...)) (if gnus-agent (gnus-request-create-group "queue" ...)) (gnus-request-create-group "drafts" (quote ...)) (gnus-setup-news nil level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook)) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows (quote group)) (gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
  (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...) (gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file ...) (when ... ...) (when gnus-use-grouplens ... ...) (if gnus-agent ...) (gnus-request-create-group "drafts" ...) (gnus-setup-news nil level dont-connect) (gnus-run-hooks ...) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows ...) (gnus-group-set-mode-line) (gnus-run-hooks ...)))
  (let ((level ...) did-connect) (unwind-protect (progn ...) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (if (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer) (gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash) (gnus-run-hooks (quote gnus-before-startup-hook)) (nnheader-init-server-buffer) (setq gnus-slave slave) (gnus-read-init-file) (if gnus-agent (gnus-agentize)) (when gnus-simple-splash (setq gnus-simple-splash nil) (cond ... ...)) (let (... did-connect) (unwind-protect ... ...)))
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


Note that I don't have any "nnimap:imap.nextra.no" select method, and
haven't had for quite a while.  This is just a bogus group left in
~/.newsrc.eld.  But removing it just moves the problem to another group,
where I temporarily have commented out the select method from ~/.gnus
because the server is currently unavailable.

Safe way to reproduce the problem:  Create a select method, subscribe
to a group, remove the select method, restart gnus.
 


Bjørn
-- 
Let me tell you something, you crass sexist, all mentally retarded
dudes should get computers .

Re: Problem with current CVS and XEmacs

[Kevin Greiner]

Bjørn Mork <bmork@dod.no> writes:

> Kevin Greiner <kgreiner@xpediantsolutions.com> writes:
>> Andreas Jaeger <aj@suse.de> writes:
>>> Jesper Harder <harder@ifa.au.dk> writes:
>>>> Andreas Jaeger <aj@suse.de> writes:
>>>>
>>>>> Starting current CVS Gnus I get with XEmacs 21.4.13:
>>>>>
>>>>> Signaling: (wrong-type-argument listp t)
>>>>>   gnus-read-active-file-1((nntp "gromit.moeb") nil)
>>>>>
>>>>> Everything works if I go back to:
>>>>> $ cvs up -D 2003-12-20 
>
> I see the same problem.
>
>> Well, none of these changes obviously intersect with
>> gnus-read-active-file-1.  So, I'm going to need to refresh your debug
>> knowledge.  I'd like you to do the following on a clean (just started)
>> emacs.
>>
>> M-x load-library gnus
>> M-x load-library gnus-start.el
>> M-x toggle-debug-on-error
>> M-x gnus
>>
>> Please post the stack trace that you get. 
>
> Debugger entered--Lisp error: (wrong-type-argument listp t)
>   gnus-find-method-for-group("nnimap+imap.nextra.no:lister.kaffe" ("nnimap+imap.nextra.no:lister.kaffe" 7 ((1 . 1001)) ((seen ...)) "nnimap:imap.nextra.no" ((uidvalidity . "979672149"))))
>   (inline (gnus-find-method-for-group (gnus-info-group info) info))
>   (gnus-server-equal (inline (gnus-find-method-for-group ... info)) gmethod)
>   (inline (gnus-server-equal (inline ...) gmethod))
>   (if (inline (gnus-server-equal ... gmethod)) (progn (push ... groups)))
>   (when (inline (gnus-server-equal ... gmethod)) (push (gnus-group-real-name ...) groups))
>   (while (setq info (pop newsrc)) (when (inline ...) (push ... groups)))
>   (let ((newsrc ...) (gmethod ...) groups info) (while (setq info ...) (when ... ...)) (gnus-read-active-file-2 groups method))
>   (cond ((and ... ... ...) (let ... ... ...)) ((null method) t) (t (if ... ... ... ... ... ...)))
>   (progn (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
>   (if (gnus-check-server method) (progn (when ... ...) (cond ... ... ...)))
>   (when (gnus-check-server method) (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
>   (let (where mesg) (setq where (nth 1 method) mesg (format "Reading active file%s via %s..." ... ...)) (gnus-message 5 mesg) (when (gnus-check-server method) (when ... ...) (cond ... ... ...)))
>   gnus-read-active-file-1((nntp "news.online.no" (nntp-address "news.nextra.no")) nil)
>   (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil (gnus-read-active-file-1 method force) (quit ... nil)))
>   (if (member method methods) nil (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil ... ...)))
>   (unless (member method methods) (if (or debug-on-error debug-on-quit) (gnus-read-active-file-1 method force) (condition-case nil ... ...)))
>   (while (setq method (pop methods)) (unless (member method methods) (if ... ... ...)))
>   (save-excursion (set-buffer nntp-server-buffer) (while (setq method ...) (unless ... ...)))
>   (let ((methods ...) method) (setq gnus-have-read-active-file nil) (save-excursion (set-buffer nntp-server-buffer) (while ... ...)))
>   gnus-read-active-file(nil nil)
>   (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect))
>   (let ((init ...) (nnmail-fetched-sources ...)) (when init (setq gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile)) (when gnus-message-archive-method (unless ... ...)) (when (or ... ...) (gnus-update-active-hashtb-from-killed)) (if gnus-agent (gnus-agent-read-servers-validate)) (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect)) (unless gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache (gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave) (gnus-dribble-eval-file)) (when (and init gnus-slave) (gnus-dribble-clear)) (gnus-update-format-specifications) (when (and ... ... ... ... ... gnus-read-active-file) (gnus-read-all-descriptions-files)) (when (and init gnus-check-new-newsgroups ... ... ... gnus-plugged) (gnus-find-new-newsgroups)) (when (and init gnus-check-bogus-newsgroups gnus-read-active-file ... ...) (gnus-check-bogus-newsgroups)) (when (and gnus-use-nocem ... ...) (gnus-nocem-scan-groups)) (gnus-master-read-slave-newsrc) (let (...) (gnus-get-unread-articles level)))
>   gnus-setup-news(nil nil nil)
>   (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks (quote gnus-startup-hook)) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file)) (when gnus-use-grouplens (bbb-login) (add-hook ... ...)) (if gnus-agent (gnus-request-create-group "queue" ...)) (gnus-request-create-group "drafts" (quote ...)) (gnus-setup-news nil level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook)) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows (quote group)) (gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
>   (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...) (gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file ...) (when ... ...) (when gnus-use-grouplens ... ...) (if gnus-agent ...) (gnus-request-create-group "drafts" ...) (gnus-setup-news nil level dont-connect) (gnus-run-hooks ...) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows ...) (gnus-group-set-mode-line) (gnus-run-hooks ...)))
>   (let ((level ...) did-connect) (unwind-protect (progn ...) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
>   (if (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer) (gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash) (gnus-run-hooks (quote gnus-before-startup-hook)) (nnheader-init-server-buffer) (setq gnus-slave slave) (gnus-read-init-file) (if gnus-agent (gnus-agentize)) (when gnus-simple-splash (setq gnus-simple-splash nil) (cond ... ...)) (let (... did-connect) (unwind-protect ... ...)))
>   gnus-1(nil nil nil)
>   gnus(nil)
> * call-interactively(gnus)
>   execute-extended-command(nil)
>   call-interactively(execute-extended-command)
>
>
> Note that I don't have any "nnimap:imap.nextra.no" select method, and
> haven't had for quite a while.  This is just a bogus group left in
> ~/.newsrc.eld.  But removing it just moves the problem to another group,
> where I temporarily have commented out the select method from ~/.gnus
> because the server is currently unavailable.
>
> Safe way to reproduce the problem:  Create a select method, subscribe
> to a group, remove the select method, restart gnus.

Thanks.  I was able to reproduce the problem here.

The patch has been checked in to gnus.el.  Please let me know if it
works for you.

Kevin

Re: Problem with current CVS and XEmacs

[Andreas Jaeger]

[-- Attachment #1: Type: text/plain, Size: 444 bytes --]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:

> [...]
> Thanks.  I was able to reproduce the problem here.
>
> The patch has been checked in to gnus.el.  Please let me know if it
> works for you.

Works for me!

Thanks a lot,
Andreas
-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SuSE Linux AG, Maxfeldstr. 5, 90409 Nürnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

Re: Problem with current CVS and XEmacs

[Bjørn Mork]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:

> The patch has been checked in to gnus.el.  Please let me know if it
> works for you.

It does.  Thanks.


Bjørn
-- 
All mentally retarded dudes should get computers , huh?