Re: Problem with current CVS and XEmacs

["Bjørn Mork" <bmork@dod.no>]

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 .