From 3cb2f98be42b53aeea5edb65c9c1bde08a8496b1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 9 May 2022 20:36:32 -0500
Subject: meh

---
 lisp/+elfeed.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'lisp/+elfeed.el')

diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el
index c0b74f0..9257c8d 100644
--- a/lisp/+elfeed.el
+++ b/lisp/+elfeed.el
@@ -105,10 +105,14 @@ If multiple items are selected, don't advance."
                (elfeed-db-load)
                (elfeed-update)
                ;; Wait for `elfeed-update' to finish
-               (while (> (elfeed-queue-count-total) 0)
-                 (sleep-for 5)
-                 (message "%s" (elfeed-queue-count-total))
-                 (accept-process-output))
+               (let ((q<5-count 0))
+                 (while (and (> (elfeed-queue-count-total) 0)
+                             (< q<5-count 5))
+                   (sleep-for 5)
+                   (message "Elfeed queue count total: %s" (elfeed-queue-count-total))
+                   (when (< (elfeed-queue-count-total) 5)
+                     (cl-incf q<5-count))
+                   (accept-process-output)))
                ;; Garbage collect and save the database
                (elfeed-db-gc)
                (elfeed-db-save)
-- 
cgit 1.4.1-21-gabe81