🚀 go-pugleaf

When VM retrieves a large message from my POP server, it prints a series
of messages like this:

	Retrieving message 7 (of 9) from kevinr@pop1, 1234 of 567890...

But it never seems to print a final message confirming that the entire
message has been retrieved:

	Retrieving message 7 (of 9) from kevinr@pop1, 567890 of 567890...

I think the easiest way to give me the warm and fuzzy feeling I want is
to provide the conventional companion for the initial "Retrieving message
7 (of 9) from kevinr@pop1..." message:

	Retrieving message 7 (of 9) from kevinr@pop1...done

Here's a patch to add that for POP and IMAP servers:

*** vm-7.18/vm-pop.el.orig	Sat May 10 20:52:46 2003
--- vm-7.18/vm-pop.el	Fri Jan 23 10:37:05 2004
***************
*** 165,170 ****
--- 165,172 ----
   		(and (null (vm-pop-retrieve-to-target process destination
   		 
			      statblob))
   		     (throw 'done (not (equal retrieved 0))))
+ 		(message "Retrieving message %d (of %d) from %s...done"
+ 	 
	 n mailbox-count popdrop)
   		(vm-increment retrieved)
   		(and b-per-session
   		     (setq retrieved-bytes (+ retrieved-bytes message-size)))

*** vm-7.18/vm-imap.el.orig	Fri May 30 13:52:51 2003
--- vm-7.18/vm-imap.el	Fri Jan 23 11:15:31 2004
***************
*** 193,198 ****
--- 193,200 ----
   		 
		      "FETCH %d (RFC822.PEEK)" n))
   		       (vm-imap-retrieve-to-target process destination
   		 
			   statblob nil)))
+ 		(message "Retrieving message %d (of %d) from %s...done"
+ 	 
	 n mailbox-count imapdrop)
   		(vm-increment retrieved)
   		(and b-per-session
   		     (setq retrieved-bytes (+ retrieved-bytes message-size)))

-- 
Kevin Rodgers