From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 1 Jul 2022 09:49:29 +0000 (+0200)
Subject: Make it easier to debug nnimap-retrieve-headers
X-Git-Tag: emacs-29.0.90~1447^2~1304
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45ba6a3104f9eb8a68e248a998e5f7cb4c99f8b7;p=emacs.git

Make it easier to debug nnimap-retrieve-headers

* lisp/gnus/nnimap.el (nnimap--max-retrieve-headers): New variable
to ease debugging.
(nnimap-retrieve-headers): Use it.
---

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index a69b5c77270..22edc3c72cf 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -233,6 +233,8 @@ during splitting, which may be slow."
 	  params)
     (format "%s" (nreverse params))))
 
+(defvar nnimap--max-retrieve-headers 200)
+
 (deffoo nnimap-retrieve-headers (articles &optional group server _fetch-old)
   (with-current-buffer nntp-server-buffer
     (erase-buffer)
@@ -249,9 +251,10 @@ during splitting, which may be slow."
             (setq sequence
 	          (nnimap-send-command
 	           "UID FETCH %s %s"
-	           (nnimap-article-ranges (seq-take ranges 200))
+	           (nnimap-article-ranges
+                    (seq-take ranges nnimap--max-retrieve-headers))
 	           (nnimap-header-parameters)))
-            (setq ranges (nthcdr 200 ranges)))
+            (setq ranges (nthcdr nnimap--max-retrieve-headers ranges)))
           ;; Wait for the final one.
 	  (nnimap-wait-for-response sequence t))
 	(unless (process-live-p (get-buffer-process (current-buffer)))