Announcements and discussions for Gnus, the GNU Emacs Usenet newsreader
 help / color / mirror / Atom feed
* Error in `gnus-topic-select-group'
@ 2011-01-27  9:56 Dan Davison
  2011-01-27 10:02 ` Lars Ingebrigtsen
  0 siblings, 1 reply; 6+ messages in thread
From: Dan Davison @ 2011-01-27  9:56 UTC (permalink / raw)
  To: info-gnus-english

Using today's gnus git HEAD with emacs 23 and 24, I

  - Start gnus
  - nntp groups appear with an asterisk before their names, indicating
    that they are not yet opened
  - Hit RET (gnus-topic-select-group)
  - I get an error in the function `gnus-agent-possibly-alter-active'
    when evaluating (setcdr active agent-max):

  Wrong type argument: consp, nil

  This results from the expression 

  (gnus-agent-possibly-alter-active group (gnus-active group) info)

  in function `gnus-select-newsgroup', where the expression
  (gnus-active group) returns nil, which becomes the `active' argument
  to `gnus-agent-possibly-alter-active'.


Dan

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Error in `gnus-topic-select-group'
  2011-01-27  9:56 Error in `gnus-topic-select-group' Dan Davison
@ 2011-01-27 10:02 ` Lars Ingebrigtsen
  2011-01-27 10:54   ` Dan Davison
  0 siblings, 1 reply; 6+ messages in thread
From: Lars Ingebrigtsen @ 2011-01-27 10:02 UTC (permalink / raw)
  To: info-gnus-english

Dan Davison <dandavison7@gmail.com> writes:

>   - I get an error in the function `gnus-agent-possibly-alter-active'
>     when evaluating (setcdr active agent-max):
>
>   Wrong type argument: consp, nil

`(setq debug-on-error t)', repeat the bug and post the resulting
backtrace.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Error in `gnus-topic-select-group'
  2011-01-27 10:02 ` Lars Ingebrigtsen
@ 2011-01-27 10:54   ` Dan Davison
  2011-01-27 22:49     ` Lars Ingebrigtsen
  0 siblings, 1 reply; 6+ messages in thread
From: Dan Davison @ 2011-01-27 10:54 UTC (permalink / raw)
  To: info-gnus-english

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Dan Davison <dandavison7@gmail.com> writes:
>
>>   - I get an error in the function `gnus-agent-possibly-alter-active'
>>     when evaluating (setcdr active agent-max):
>>
>>   Wrong type argument: consp, nil
>
> `(setq debug-on-error t)', repeat the bug and post the resulting
> backtrace.

Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcdr(nil 36739)
  (progn (setcdr active agent-max))
  (if (> agent-max active-max) (progn (setcdr active agent-max)))
  (when (> agent-max active-max) (setcdr active agent-max))
  (let* ((local ...) (active-min ...) (active-max ...) (agent-min ...) (agent-max ...)) (when (< agent-min active-min) (setcar active agent-min)) (when (> agent-max active-max) (setcdr active agent-max)) (when (and info ...) (let ... ...) (gnus-agent-set-local group agent-min ...)))
  (progn (let* (... ... ... ... ...) (when ... ...) (when ... ...) (when ... ... ...)))
  (if (gnus-agent-method-p gnus-command-method) (progn (let* ... ... ... ...)))
  (when (gnus-agent-method-p gnus-command-method) (let* (... ... ... ... ...) (when ... ...) (when ... ...) (when ... ... ...)))
  (let* ((gnus-command-method ...)) (when (gnus-agent-method-p gnus-command-method) (let* ... ... ... ...)))
  gnus-agent-possibly-alter-active("gmane.emacs.orgmode" nil ("gmane.emacs.orgmode" 3 (36655 36662) ((seen ...) (reply 36042 36067 36303 36319 36529 36582) (tick 36655 36662))))
  (progn (gnus-agent-possibly-alter-active group (gnus-active group) info) (setq gnus-summary-use-undownloaded-faces (gnus-agent-find-parameter group ...)))
  (if gnus-agent (progn (gnus-agent-possibly-alter-active group ... info) (setq gnus-summary-use-undownloaded-faces ...)))
  (when gnus-agent (gnus-agent-possibly-alter-active group (gnus-active group) info) (setq gnus-summary-use-undownloaded-faces (gnus-agent-find-parameter group ...)))
  (let* ((entry ...) (gnus-summary-ignore-duplicates ...) (info ...) charset articles fetched-articles cached) (unless (gnus-check-server ...) (error "Couldn't open server")) (setq charset (gnus-group-name-charset gnus-current-select-method group)) (or (and entry ...) (gnus-activate-group group) (progn ... ...)) (unless (gnus-request-group group t) (when ... ...) (error "Couldn't request group %s: %s" ... ...)) (when gnus-agent (gnus-agent-possibly-alter-active group ... info) (setq gnus-summary-use-undownloaded-faces ...)) (setq gnus-newsgroup-name group gnus-newsgroup-unselected nil gnus-newsgroup-unreads (gnus-list-of-unread-articles group)) (let (...) (setq gnus-newsgroup-display ...)) (gnus-summary-setup-default-charset) (when (gnus-virtual-group-p group) (setq cached gnus-newsgroup-cached)) (setq gnus-newsgroup-unreads (gnus-sorted-ndifference ... gnus-newsgroup-dormant)) (setq gnus-newsgroup-processable nil) (gnus-update-read-articles group gnus-newsgroup-unreads t) (when info (gnus-adjust-marked-articles info)) (if (setq articles select-articles) (setq gnus-newsgroup-unselected ...) (setq articles ...)) (cond (... ...) (... nil) (t ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-select-newsgroup("gmane.emacs.orgmode" nil nil)
  (and new-group (gnus-select-newsgroup group show-all select-articles))
  (let* ((new-group ...) (quit-config ...) (did-select ...)) (cond (... ... ... ... ... ... ... t) (... ... ... nil) (... ... ... ... ...) (t ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  gnus-summary-read-group-1("gmane.emacs.orgmode" nil t nil nil nil)
  (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil))
  (let ((gnus-auto-select-next nil)) (or (gnus-summary-read-group-1 group show-all no-article kill-buffer no-display select-articles) (setq show-all nil select-articles nil)))
  (setq result (let (...) (or ... ...)))
  (null (setq result (let ... ...)))
  (and group (null (setq result ...)) (eq gnus-auto-select-next (quote quietly)))
  (while (and group (null ...) (eq gnus-auto-select-next ...)) (set-buffer gnus-group-buffer) (when backward (gnus-group-prev-unread-group 2)) (if (not ...) (setq group ...) (setq group nil)))
  (let (result) (while (and group ... ...) (set-buffer gnus-group-buffer) (when backward ...) (if ... ... ...)) result)
  gnus-summary-read-group("gmane.emacs.orgmode" nil t nil nil nil nil)
  (let ((no-display ...) (group ...) number active marked entry) (when (eq all 0) (setq all nil)) (unless group (error "No group on current line")) (setq marked (gnus-info-marks ...)) (setq number (cond ... ... ...)) (gnus-summary-read-group group (or all ...) no-article nil no-display nil select-articles))
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  (if (gnus-group-topic-p) (let (...) (gnus-topic-fold all) (gnus-dribble-touch)) (gnus-group-select-group all))
  gnus-topic-select-group(nil)
  call-interactively(gnus-topic-select-group nil nil)

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Error in `gnus-topic-select-group'
  2011-01-27 10:54   ` Dan Davison
@ 2011-01-27 22:49     ` Lars Ingebrigtsen
  2011-01-28  9:49       ` Dan Davison
  0 siblings, 1 reply; 6+ messages in thread
From: Lars Ingebrigtsen @ 2011-01-27 22:49 UTC (permalink / raw)
  To: info-gnus-english

Dan Davison <dandavison7@gmail.com> writes:

>   gnus-agent-possibly-alter-active("gmane.emacs.orgmode" nil ("gmane.emacs.orgmode" 3 (36655 36662) ((seen ...) (reply 36042 36067 36303 36319 36529 36582) (tick 36655 36662))))

The second parameter there is supposed to be the active list.  It's easy
enough to add a check here for this situation, but I'm curious why this
is happening.  Are you entering an unactivated group?  I.e., does the
bug go away if you say `M-g' first?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Error in `gnus-topic-select-group'
  2011-01-27 22:49     ` Lars Ingebrigtsen
@ 2011-01-28  9:49       ` Dan Davison
  2011-01-28 22:23         ` Lars Ingebrigtsen
  0 siblings, 1 reply; 6+ messages in thread
From: Dan Davison @ 2011-01-28  9:49 UTC (permalink / raw)
  To: info-gnus-english

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Dan Davison <dandavison7@gmail.com> writes:
>
>>   gnus-agent-possibly-alter-active("gmane.emacs.orgmode" nil
>> ("gmane.emacs.orgmode" 3 (36655 36662) ((seen ...) (reply 36042
>> 36067 36303 36319 36529 36582) (tick 36655 36662))))
>
> The second parameter there is supposed to be the active list.  It's easy
> enough to add a check here for this situation, but I'm curious why this
> is happening.  Are you entering an unactivated group?  I.e., does the
> bug go away if you say `M-g' first?

Yes, I only see this if I do RET without first doing M-g.

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: Error in `gnus-topic-select-group'
  2011-01-28  9:49       ` Dan Davison
@ 2011-01-28 22:23         ` Lars Ingebrigtsen
  0 siblings, 0 replies; 6+ messages in thread
From: Lars Ingebrigtsen @ 2011-01-28 22:23 UTC (permalink / raw)
  To: info-gnus-english

Dan Davison <dandavison7@gmail.com> writes:

> Yes, I only see this if I do RET without first doing M-g.

Ok, then this should be fixed now.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2011-01-28 22:23 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-01-27  9:56 Error in `gnus-topic-select-group' Dan Davison
2011-01-27 10:02 ` Lars Ingebrigtsen
2011-01-27 10:54   ` Dan Davison
2011-01-27 22:49     ` Lars Ingebrigtsen
2011-01-28  9:49       ` Dan Davison
2011-01-28 22:23         ` Lars Ingebrigtsen

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).