Bug with gnus-group-jump-to-group and topics

Bug with gnus-group-jump-to-group and topics

[Paul Stodghill]

In the group buffer...

Turn on topic mode.

Turn _off_ topic mode.

Hit `j' and enter a group whose name is not currently displayed in the
buffer.

It seems to go into an infinite loop.

Hit ^G.

Turn topic mode back on. Jump to the same group. It works.

This is with Gnus v5.4.55.

-- 
Paul Stodghill <stodghil@cs.cornell.edu>
http://www.cs.cornell.edu/home/stodghil/home.html

Re: Bug with gnus-group-jump-to-group and topics

[Hrvoje Niksic]

Paul Stodghill <stodghil@CS.Cornell.EDU> writes:

> It seems to go into an infinite loop.

This looks repeatable.  When I set `debug-on-quit' to t and load the
uncompiled files, I get the following backtrace:

Signaling: (quit)
  equal(nil "Gnus")
  (not (equal (caaar tp) topic))
)
  (while (not (equal ... topic)) (setq tp (cdr tp)))
)
  (let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
  (if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
  gnus-topic-goto-missing-topic("Gnus")
  (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic (caadr top)))
)
  (let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
  (if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
  gnus-topic-goto-missing-topic("Computers...")
  (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic (caadr top)))
)
  (let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
  (if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
  gnus-topic-goto-missing-topic("Emacs")
  (not (gnus-topic-goto-missing-topic topic))
)
  (and unfound topic (not (gnus-topic-goto-missing-topic topic)))
)
  (if (and unfound topic (not ...)) (progn (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
  (when (and unfound topic (not ...)) (gnus-topic-insert-topic-line topic t t (car ...) nil 0))
)
  (progn (setq g (cdr ...)) (while (and g unfound) (when ... ... ...)) (when (and unfound topic ...) (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
  (if (not g) (progn (setq g ...) (while ... ...) (when ... ...)))
)
  (when (not g) (setq g (cdr ...)) (while (and g unfound) (when ... ... ...)) (when (and unfound topic ...) (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
  (let* ((topic ...) (groups ...) (g ...) (unfound t)) (while (and g ...) (pop g)) (when (not g) (setq g ...) (while ... ...) (when ... ...)))
)
  gnus-topic-goto-missing-group("comp.emacs")
  funcall(gnus-topic-goto-missing-group "comp.emacs")
  (if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let (...) (while ... ...) (or entry ...)))
)
  (if (or found visible-only) nil (if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let ... ... ...)) (let (...) (gnus-group-insert-group-line-info group) (save-excursion ... ...)))
)
  (unless (or found visible-only) (if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let ... ... ...)) (let (...) (gnus-group-insert-group-line-info group) (save-excursion ... ...)))
)
  (let ((ident ...) (loc ...) found buffer-read-only) (let (...) (when ... ...)) (while (setq loc ...) (setq found t) (goto-char loc) (let ... ... ... ...) (setq loc ...)) (unless (or found visible-only) (if gnus-goto-missing-group-function ... ...) (let ... ... ...)) (when gnus-group-update-group-function (funcall gnus-group-update-group-function group)) (gnus-group-set-mode-line))
)
  (save-restriction (widen) (let (... ... found buffer-read-only) (let ... ...) (while ... ... ... ... ...) (unless ... ... ...) (when gnus-group-update-group-function ...) (gnus-group-set-mode-line)))
)
  (let ((buf ...) mark) (set-buffer gnus-group-buffer) (setq mark (point-marker)) (save-restriction (widen) (let ... ... ... ... ... ...)) (goto-char mark) (set-marker mark nil) (set-buffer buf))
)
  gnus-group-update-group("comp.emacs")
  (if (gnus-group-goto-group group) nil (gnus-group-update-group group) (gnus-group-goto-group group))
)
  (unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group))
)
  (if (gnus-ephemeral-group-p group) nil (unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group)))
)
  (unless (gnus-ephemeral-group-p group) (unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group)))
)
  (lambda (group) "Jump to newsgroup GROUP." (interactive (list ...)) (when (equal group "") (error "Empty group name")) (unless (gnus-ephemeral-group-p group) (unless ... ... ...)) (gnus-group-position-point))("comp.emacs")
  call-interactively(gnus-group-jump-to-group)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then...  his face does a complete change of expression.  It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.

Re: Bug with gnus-group-jump-to-group and topics

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@srce.hr> writes:

> > It seems to go into an infinite loop.
> 
> This looks repeatable.  When I set `debug-on-quit' to t and load the
> uncompiled files, I get the following backtrace:
> 
> Signaling: (quit)
>   equal(nil "Gnus")

Yup.  Fix in Quassia Gnus v0.1.

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

Re: Bug with gnus-group-jump-to-group and topics

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@srce.hr> writes:

> > It seems to go into an infinite loop.
> 
> This looks repeatable.  When I set `debug-on-quit' to t and load the
> uncompiled files, I get the following backtrace:
> 
> Signaling: (quit)
>   equal(nil "Gnus")

Yup.  Fix in Quassia Gnus v0.1.

... uh, I mean Gnus 5.4.56.

I wish I had that nndraft mail queue thingie *right* *now*.  Or two
minutes ago.  :-)

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

Re: Bug with gnus-group-jump-to-group and topics

[Paul Stodghill]

>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

    Lars> Hrvoje Niksic <hniksic@srce.hr> writes:
    > It seems to go into an infinite loop.
    >>  This looks repeatable. When I set `debug-on-quit' to t and load the
    >> uncompiled files, I get the following backtrace:
    >> 
    >> Signaling: (quit) equal(nil "Gnus")

    Lars> Yup. Fix in Quassia Gnus v0.1.

    Lars> ... uh, I mean Gnus 5.4.56.

Yup. Looks good. Thanks.

    Lars> I wish I had that nndraft mail queue thingie *right* *now*. Or
    Lars> two minutes ago. :-)

:-)

-- 
Paul Stodghill <stodghil@cs.cornell.edu>
http://www.cs.cornell.edu/home/stodghil/home.html