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