From b06d626405ffff8ccc3e859bc6ca037d1d1fe60f Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Tue, 11 Feb 2003 01:19:37 +0000 Subject: [PATCH] (gnus-summary-refer-thread): Handle case where gnus-refer-thread-limit is t. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 19 ++++++++++++------- 2 files changed, 17 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5e59747a..c4f8a955e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-02-11 Jesper Harder + + * gnus-sum.el (gnus-summary-refer-thread): Handle case where + gnus-refer-thread-limit is t. + 2003-02-10 Jesper Harder * mm-util.el (mm-mule-charset-to-mime-charset): Use diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index a1caf0114..cc1d05c3a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7957,13 +7957,18 @@ of what's specified by the `gnus-refer-thread-limit' variable." (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) - gnus-newsgroup-end)) - gnus-newsgroup-name (* limit 2)) + (if (eq (if (numberp limit) + (gnus-retrieve-headers + (list (min + (+ (mail-header-number + (gnus-summary-article-header)) + limit) + gnus-newsgroup-end)) + gnus-newsgroup-name (* limit 2)) + ;; gnus-refer-thread-limit is t, i.e. fetch _all_ + ;; headers. + (gnus-retrieve-headers (list gnus-newsgroup-end) + gnus-newsgroup-name limit)) 'nov) (gnus-build-all-threads) (error "Can't fetch thread from backends that don't support NOV")) -- 2.25.1