[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Error in `gnus-topic-select-group'
From: |
Dan Davison |
Subject: |
Re: Error in `gnus-topic-select-group' |
Date: |
Thu, 27 Jan 2011 10:54:18 +0000 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) Emacs/23.2 (darwin) |
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)