more information during IMAP downloads

[dme@dme.org]

A small change to imap-wait-for-tag generates (to me) useful
information during more lengthy article downloads (sometimes I
retrieve multi-megabyte messages over a 64k link).

It is similar to code in nntp.el, but it seems as though management of
the message output could perhaps be better.

Comments ?

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 6.1
diff -c -r6.1 imap.el
*** imap.el	2000/10/28 17:59:27	6.1
--- imap.el	2000/11/22 08:36:16
***************
*** 1595,1601 ****
  		(< imap-reached-tag tag))
        (or (and (not (memq (process-status imap-process) '(open run)))
  	       (sit-for 1))
! 	  (accept-process-output imap-process 1)))
      (or (assq tag imap-failed-tags)
  	(if imap-continuation
  	    'INCOMPLETE
--- 1595,1605 ----
  		(< imap-reached-tag tag))
        (or (and (not (memq (process-status imap-process) '(open run)))
  	       (sit-for 1))
! 	  (let ((len (/ (point-max) 1024)))
! 	    (unless (< len 10)
! 	      (message "imap read: %dk" len))
! 	    (accept-process-output imap-process 1))))
!     (message "")
      (or (assq tag imap-failed-tags)
  	(if imap-continuation
  	    'INCOMPLETE

dme.