procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make it easier to debug nnimap-retrieve-headers

Browse source 
* lisp/gnus/nnimap.el (nnimap--max-retrieve-headers): New variable
to ease debugging.
(nnimap-retrieve-headers): Use it.
This commit is contained in:
Lars Ingebrigtsen 2022-07-01 11:49:29 +02:00
parent d0e15c3814
commit 45ba6a3104
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/nnimap.el
View file

@ -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)))