From 45ba6a3104f9eb8a68e248a998e5f7cb4c99f8b7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 1 Jul 2022 11:49:29 +0200 Subject: [PATCH] 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 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))) -- 2.39.5