--- pop3.el~	2005-11-23 23:34:42 +0000
+++ pop3.el	2005-11-24 09:20:25 +0000
@@ -222,7 +222,7 @@
       (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 "pop3s"))))
 	      (let ((process (open-tls-stream "POP" (current-buffer)
 					      mailhost port)))
 		(when process