From xemacs-m  Thu May  8 19:31:52 1997
Received: from mail-oak-2.pilot.net (mail-oak-2.pilot.net [198.232.147.17])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id TAA04590
	for <xemacs-beta@xemacs.org>; Thu, 8 May 1997 19:28:15 -0500 (CDT)
Received: from cogit.com (unknown-79-101.ergosum.com [206.189.79.101]) by mail-oak-2.pilot.net with SMTP id RAA10126; Thu, 8 May 1997 17:22:51 -0700 (PDT)
Received: from carnifex.cogit.com by cogit.com (SMI-8.6/SMI-SVR4)
	id RAA22966; Thu, 8 May 1997 17:22:43 -0700
Received: from carnifex.cogit.com by carnifex.cogit.com (SMI-8.6/client-1.3)
	id RAA05858; Thu, 8 May 1997 17:22:42 -0700
Message-Id: <199705090022.RAA05858@carnifex.cogit.com>
To: Hrvoje Niksic <hniksic@srce.hr>
cc: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: delay? 
In-reply-to: Your message of "08 May 1997 22:30:44 +0200."
             <kigiv0togej.fsf@jagor.srce.hr> 
References: <QQcorj19515.199705081847@crystal.WonderWorks.COM> <m2lo5plr07.fsf@altair.xemacs.org> <kigiv0togej.fsf@jagor.srce.hr>  
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: Thu, 08 May 1997 17:22:41 -0700
From: Chris Dean <ctdean@cogit.com>


Hrvoje Niksic <hniksic@srce.hr> writes:
> 1) does it happen to anyone else but me?

Not normally.

> 
> 2) does it happen when you set `gnus-build-sparse-threads' to `some'?

Yes.  If I do
    xemacs -q
    (setq gnus-select-method '(nntp "news.iswest.net")),
    (setq gnus-build-sparse-threads 'some)

Chris Dean



Signaling: (wrong-type-argument arrayp nil)
  aref(nil 4)
  (mail-header-id header)
)
  (let* ((header ...) (id ...) (data ...) (thread ...) (references ...) (parent ...) (buffer-read-only nil) (old ...) (number ...) pos) (when thread (unless iheader ...) (when parent ...) (if ... ... ... nil)))
)
  gnus-summary-update-article(-5)
  (progn (gnus-summary-update-article (mail-header-number header)))
)
  (if sparse (progn (gnus-summary-update-article ...)))
)
  (when sparse (gnus-summary-update-article (mail-header-number header)))
)
  (prog1 (gnus-summary-goto-article (mail-header-number header) nil t) (when sparse (gnus-summary-update-article ...)))
)
  (if header (prog1 (gnus-summary-goto-article ... nil t) (when sparse ...)) (let (... number) (when ... ...) (if ... ... ...)))
)
  (let* ((header ...) (sparse ...)) (if header (prog1 ... ...) (let ... ... ...)))
)
  (progn (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ...) (if header ... ...)))
)
  (if (and (stringp message-id) (not ...)) (progn (unless ... ...) (unless ... ...) (let* ... ...)))
)
  (when (and (stringp message-id) (not ...)) (unless (string-match "^<" message-id) (setq message-id ...)) (unless (string-match ">$" message-id) (setq message-id ...)) (let* (... ...) (if header ... ...)))
)
  gnus-summary-refer-article("<u0tzpu6ppdy.fsf@oink.mcom.com>")
  (if (gnus-summary-refer-article (gnus-parent-id ref skip)) nil (gnus-message 1 "Couldn't find parent"))
)
  (unless (gnus-summary-refer-article (gnus-parent-id ref skip)) (gnus-message 1 "Couldn't find parent"))
)
  (if (and ref (not ...)) (unless (gnus-summary-refer-article ...) (gnus-message 1 "Couldn't find parent")) (gnus-message 1 "No references in article %d" (gnus-summary-article-number)) (setq error t))
)
  (while (and (> n 0) (not error)) (setq header (gnus-summary-article-header)) (if (and ... ...) (save-excursion ... ... ... ...) (setq ref ...)) (if (and ref ...) (unless ... ...) (gnus-message 1 "No references in article %d" ...) (setq error t)) (decf n))
)
  (let ((skip 1) error header ref) (when (not ...) (setq skip ... n 1)) (while (and ... ...) (setq header ...) (if ... ... ...) (if ... ... ... ...) (decf n)) (gnus-summary-position-point) n)
)
  gnus-summary-refer-parent-article(1)
  call-interactively(gnus-summary-refer-parent-article)

