pop3+ssl

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <E1Ef3cI-0006Nl-00@quimby.gnus.org> Dave Love wrote:

>     Date: Thursday, November 24, 2005 @ 00:01:30
>   Author: cvs
>     Path: /usr/local/cvsroot/gnus/lisp

> Modified: pop3.el

> (pop3-authentication-scheme): Clarify doc.
> (open-tls-stream, starttls-open-stream): Autoload.
> (pop3-stream-type): New.
> (pop3-open-server): Use it.

In pop3-open-server, for what purpose is `while' used?  If it is
intended to run cyclically, it seems to lack some conditions or
other.

		  ;; There's a load of info printed that needs deleting.
->		  (while (when (memq (process-status process) '(open run))
			   (pop3-accept-process-output process)
			   (goto-char (point-max))
			   (forward-line -1)
			   (if (looking-at "\\+OK")
			       (delete-region (point-min) (point))
			     (pop3-quit process)
			     (error "POP SSL connexion failed"))))

I cannot try it practically since I have no pop3 server which
supports ssl, though.