[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 45ba6a3104 2/2: Make it easier to debug nnimap-retrieve-headers
From: |
Lars Ingebrigtsen |
Subject: |
master 45ba6a3104 2/2: Make it easier to debug nnimap-retrieve-headers |
Date: |
Fri, 1 Jul 2022 05:51:13 -0400 (EDT) |
branch: master
commit 45ba6a3104f9eb8a68e248a998e5f7cb4c99f8b7
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
lisp/gnus/nnimap.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index a69b5c7727..22edc3c72c 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)))