Re: Fetching all messages into the Agent

[Robert Pluim <rpluim@gmail.com>]

Richard Riley <rileyrg@gmail.com> writes:

> When firing off J s in the group buffer is there a way, or could there
> please, to give some sort of progress feedback? As it is gnus just "locks
> up" (ie fetches with no indication its doing anything) , sometimes for a
> long time, with no indication its doing anything! Possibly just message
> the group currently being fetched.

When I used the agent, I used the following. I hereby place it in the
public domain (although I doubt it passes the 'originality' test :) )

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 3597037..530ebd6 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1570,10 +1570,12 @@ downloaded into the agent."
                (date (time-to-days (current-time)))
                (case-fold-search t)
                pos crosses id
-	       (file-name-coding-system nnmail-pathname-coding-system))
+	       (file-name-coding-system nnmail-pathname-coding-system)
+	       (n 1) total)
 
           (setcar selected-sets (nreverse (car selected-sets)))
           (setq selected-sets (nreverse selected-sets))
+	  (setq total (reduce '+ (mapcar 'length selected-sets)))
 
           (gnus-make-directory dir)
 	  (gnus-message 7 "Fetching articles for %s..."
@@ -1587,9 +1589,10 @@ downloaded into the agent."
                   (with-temp-buffer
                     (let (article)
                       (while (setq article (pop articles))
-                        (gnus-message 10 "Fetching article %s for %s..."
-				      article
+                        (gnus-message 7 "Fetching article %d of %d for %s..."
+				      n total
 				      (gnus-agent-decoded-group-name group))
+			(incf n)
                         (when (or
                                (gnus-backlog-request-article group article
                                                              nntp-server-buffer)