From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/11115 Path: main.gmane.org!not-for-mail From: Hrvoje Niksic Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug with gnus-group-jump-to-group and topics Date: 27 May 1997 19:32:38 +0200 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035150879 28374 80.91.224.250 (20 Oct 2002 21:54:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:54:39 +0000 (UTC) Return-Path: Original-Received: from sandy.calag.com (root@sandy [206.190.83.128]) by altair.xemacs.org (8.8.5/8.8.5) with ESMTP id MAA12128 for ; Tue, 27 May 1997 12:29:40 -0700 Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by sandy.calag.com (8.8.5/8.8.5) with ESMTP id MAA23885 for ; Tue, 27 May 1997 12:29:22 -0700 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id OAA09947 for ; Tue, 27 May 1997 14:28:37 -0500 (CDT) Original-Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Tue, 27 May 1997 19:32:54 +0200 Original-Received: (from hniksic@localhost) by jagor.srce.hr (8.8.5/8.8.4) id TAA22802; Tue, 27 May 1997 19:32:40 +0200 (MET DST) Original-To: ding@ifi.uio.no X-Attribution: Hrv X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/xDi&N7XG KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&Ff%x_>1`T(+M2Gg/fgndU%k*ft [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J X-Horoscope: Never marry the milkperson without talking with piglet3 first. Your piglet will give you good advice today. This week will be a good time for buying a new computer. Have your dog spayed or neutered with the help of a wallflower. You'll someday be fulfilled. In-Reply-To: Paul Stodghill's message of 27 May 1997 09:10:15 -0400 X-Mailer: Gnus v5.4.52/XEmacs 20.2 Original-Lines: 81 Original-Xref: altair.xemacs.org dgnus-list:1505 Xref: main.gmane.org gmane.emacs.gnus.general:11115 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:11115 Paul Stodghill 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 | 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.