Re: pop3+ssl

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 365 bytes --]

>>>>> In <b4msltmyjxi.fsf_-_@jpl.org> Katsumi Yamaoka wrote:

> 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.

In addition, `pop3-open-server' should also recognize a string
as a port number.  See the `mail-sources' variable.  I use "110"
for it, which causes an error.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 414 bytes --]

--- pop3.el~	2005-11-23 23:34:42 +0000
+++ pop3.el	2005-11-24 01:16:11 +0000
@@ -222,7 +222,8 @@
       (setq process
 	    (cond
 	     ((or (eq pop3-stream-type 'ssl)
-		  (and (not pop3-stream-type) (= port 995))) ; pop3s
+		  (and (not pop3-stream-type)
+		       (member port '(995 "995")))) ; pop3s
 	      (let ((process (open-tls-stream "POP" (current-buffer)
 					      mailhost port)))
 		(when process