pop3 *very* slow?

[Dave Liebreich <pixiebob@bigfoot.com>]

[apologies if this shows up twice]
[using pgnus-0.95 - I know I should go to .97]

I've set

(setq mail-sources
           '((pop :server "mailhost")))

and it's *very* slow.  Are the following lines in pop3.el really necessary?


       	;; bill@att.com ... to save wear and tear on the heap
	;; uncommented because the condensed version below is a problem for
	;; some.
	(if (> (buffer-size)  20000) (sleep-for 1))
	(if (> (buffer-size)  50000) (sleep-for 1))
	(if (> (buffer-size) 100000) (sleep-for 1))
	(if (> (buffer-size) 200000) (sleep-for 1))
	(if (> (buffer-size) 500000) (sleep-for 1))
	;; bill@att.com
	;; condensed into:
	;; (sometimes causes problems for really large messages.)
;	(if (> (buffer-size) 20000) (sleep-for (/ (buffer-size) 20000)))

And if pop just has to be slow, then does anyone have a working setup using
fetchmail that I can copy?  (I want to fetch the messages only when I
manually check for new mail; otherwise, I'd set up fetchmail/procmail to get
the mail in daemon mode and point gnus at a local spool file).

Thanks

_Dave