From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Mon, 19 Jun 2023 23:59:51 +0000 (+0800)
Subject: Don't read all headers in gnus thread referral (bug#63842)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e13610b75718e7904f8af181fb73571639e1211;p=emacs.git

Don't read all headers in gnus thread referral (bug#63842)

Gnus thread referral tries to add newly found articles to an existing
summary buffer. When the list of such articles is known from searching
we can speed things up by only entering these specific headers into
the dependencies table.

* lisp/gnus/gnus-sum.el (gnus-summary-refer-thread): Don't set
`gnus-read-all-available-headers' when finding articles by searching.
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 4effaa981ec..a3be5577f7a 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9029,7 +9029,6 @@ is non-numeric or nil fetch the number specified by the
          (id (mail-header-id header))
          (gnus-inhibit-demon t)
          (gnus-summary-ignore-duplicates t)
-         (gnus-read-all-available-headers t)
          (gnus-refer-thread-use-search
           (if (or (null limit) (numberp limit))
               gnus-refer-thread-use-search
@@ -9049,7 +9048,8 @@ is non-numeric or nil fetch the number specified by the
             (gnus-search-thread header))
            ;; Otherwise just retrieve some headers.
            (t
-            (let* ((limit (if (numberp limit)
+            (let* ((gnus-read-all-available-headers t)
+                   (limit (if (numberp limit)
                               limit
                             gnus-refer-thread-limit))
                    (last (if (numberp limit)