From: Kevin Greiner <kgreiner@xpediantsolutions.com>
Subject: Re: Problem with current CVS and XEmacs
Date: Mon, 29 Dec 2003 09:15:52 -0600 [thread overview]
Message-ID: <uad5bhcyf.fsf@xpediantsolutions.com> (raw)
In-Reply-To: <hvfzf3vjjw.fsf@rasputin.ws.nextra.no>
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
next prev parent reply other threads:[~2003-12-29 15:15 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-12-28 10:06 Andreas Jaeger
2003-12-28 13:42 ` Jesper Harder
2003-12-28 23:10 ` Andreas Jaeger
2003-12-29 2:38 ` Kevin Greiner
2003-12-29 13:29 ` Bjørn Mork
2003-12-29 15:15 ` Kevin Greiner [this message]
2003-12-29 16:52 ` Andreas Jaeger
2003-12-30 13:00 ` Bjørn Mork
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=uad5bhcyf.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).