fix waiting for all started feed downloads with -J

importfeed bug fix: When -J was used with multiple feeds, some feeds did
not get their items downloaded.

In my case, I had added a feed to the end of the list, and no items from it
were ever downloaded.

Sponsored-by: Leon Schuermann on Patreon

CHANGELOG

@@ -14,6 +14,8 @@ git-annex (10.20230627) UNRELEASED; urgency=medium
   * importfeed: Add feedurl to the metadata (and allow it to be used in the
     --template)
   * Improve resuming interrupted download when using yt-dlp.
+  * importfeed bug fix: When -J was used with multiple feeds, some feeds
+    did not get their items downloaded.
 
  -- Joey Hess <id@joeyh.name>  Mon, 26 Jun 2023 13:10:40 -0400
 

Command/ImportFeed.hs

@@ -101,7 +101,7 @@ seek o = startConcurrency commandStages $ do
 					return m
 				else
 					let (pending, rest) = M.partition ispending m
-					in if M.null pending
+					in if M.null pending || not (M.null rest)
 						then retry
 						else do
 							putTMVar dlst rest