From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49975 Path: main.gmane.org!not-for-mail From: sigurd@12move.de (Karl =?iso-8859-1?q?Pfl=E4sterer?=) Newsgroups: gmane.emacs.gnus.general Subject: Bug in `gnus-summary-refer-thread' Date: Sun, 09 Feb 2003 19:02:31 +0100 Organization: Lemis World Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1044813982 1653 80.91.224.249 (9 Feb 2003 18:06:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 9 Feb 2003 18:06:22 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18hvqP-0000QW-00 for ; Sun, 09 Feb 2003 19:06:21 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18hvrW-0002W8-00; Sun, 09 Feb 2003 12:07:30 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 09 Feb 2003 12:08:28 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id MAA27295 for ; Sun, 9 Feb 2003 12:08:15 -0600 (CST) Original-Received: (qmail 91637 invoked by alias); 9 Feb 2003 18:07:13 -0000 Original-Received: (qmail 91632 invoked from network); 9 Feb 2003 18:07:12 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by 66.230.238.6 with SMTP; 9 Feb 2003 18:07:12 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 18hvzk-0002PG-00 for ; Sun, 09 Feb 2003 19:16:00 +0100 Original-To: ding@gnus.org Original-Path: wintendo.pflaesterer.de!not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 72 Original-NNTP-Posting-Host: p62.246.146.25.tisdip.tiscali.de Original-X-Trace: quimby.gnus.org 1044814560 9253 62.246.146.25 (9 Feb 2003 18:16:00 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 9 Feb 2003 18:16:00 GMT X-Face: #iIcL\6>Qj/G*F@AL9T*v/R$j@7Q`6#FU&Flg6u6aVsLdWf(H$U5>:;&*>oy>jOIWgA%8w* A!V7X`\fEGoQ[@D'@i^*p3FCC6&Rg~JT/H_*MOX;"o~flADb8^ Mail-Copies-To: never User-Agent: Oort Gnus v0.15 Hamster/2.0.0.0 Cancel-Lock: sha1:rli+QvZpx4ZKN66Mq5w+8/OB6JM= Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:49975 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:49975 Hi, if I use `A T' (gnus-summary-refer-thread) to fetch the whole thread I get this error: ,---- | Signaling: (wrong-type-argument number-char-or-marker-p t) | +(14666 t) | (min (+ (mail-header-number ...) limit) gnus-newsgroup-end) | (list (min (+ ... limit) gnus-newsgroup-end)) | (gnus-retrieve-headers (list (min ... gnus-newsgroup-end)) gnus-newsgroup-name (* limit 2)) | (eq (gnus-retrieve-headers (list ...) gnus-newsgroup-name (* limit 2)) (quote nov)) | (if (eq (gnus-retrieve-headers ... gnus-newsgroup-name ...) (quote nov)) (gnus-build-all-threads) (error "Can't fetch thread from backends that don't support NOV")) | (if (eq gnus-fetch-old-headers (quote invisible)) nil (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name) (if (eq ... ...) (gnus-build-all-threads) (error "Can't fetch thread from backends that don't support NOV")) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)) | (unless (eq gnus-fetch-old-headers (quote invisible)) (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name) (if (eq ... ...) (gnus-build-all-threads) (error "Can't fetch thread from backends that don't support NOV")) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)) | (let ((id ...) (limit ...)) (unless (eq gnus-fetch-old-headers ...) (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name) (if ... ... ...) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)) (gnus-summary-limit-include-thread id)) | * gnus-summary-refer-thread(nil) | call-interactively(gnus-summary-refer-thread) `---- I think that is because of the definition of the variable `gnus-refer-thread-limit' ,----[ C-h v gnus-refer-thread-limit RET ] | `gnus-refer-thread-limit' is a variable declared in Lisp. | -- loaded from "/d/ognus/lib/xemacs/site-packages/lisp/gnus/gnus-sum.el" | | Value: t | | Documentation: | *The number of old headers to fetch when doing A T. | If t, fetch all the available old headers. `---- And here in the function, `limit' is set to `t' if there is no prefix. ,---- | (defun gnus-summary-refer-thread (&optional limit) | "Fetch all articles in the current thread. | If LIMIT (the numerical prefix), fetch that many old headers instead | of what's specified by the `gnus-refer-thread-limit' variable." | (interactive "P") | (let ((id (mail-header-id (gnus-summary-article-header))) | (limit (if limit (prefix-numeric-value limit) | gnus-refer-thread-limit))) ^^^^^^^^^^^^^^^^^^^^^^^ | (unless (eq gnus-fetch-old-headers 'invisible) | (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name) | ;; Retrieve the headers and read them in. | (if (eq (gnus-retrieve-headers | (list (min | (+ (mail-header-number | (gnus-summary-article-header)) | limit) ^^^^^^ Here the wrong addition. | gnus-newsgroup-end)) | gnus-newsgroup-name (* limit 2)) | 'nov) | (gnus-build-all-threads) | (error "Can't fetch thread from backends that don't support NOV")) | (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name)) | (gnus-summary-limit-include-thread id))) `---- bye KP -- 'Twas brillig, and the slithy toves Did gyre and gimble in the wabe; All mimsy were the borogoves, And the mome raths outgrabe. "Lewis Carroll" "Jabberwocky"