Re: Error in `gnus-topic-select-group'

[Dan Davison]

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)