(gnus-summary-refer-thread): Handle case where

gnus-refer-thread-limit is t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5e5974..c4f8a95 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-11  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-sum.el (gnus-summary-refer-thread): Handle case where
+       gnus-refer-thread-limit is t.
+
 2003-02-10  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-util.el (mm-mule-charset-to-mime-charset): Use

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index a1caf01..cc1d05c 100644 (file)
--- 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"))