.

original commit: 266a43bafffc8738446b98dcf7c9b29f145922c8
2004-10-09 20:02:01 +00:00 · 2004-10-09 20:02:01 +00:00 · 6cd65dddb1
commit 6cd65dddb1
parent 53f8725e49
1 changed files with 10 additions and 1 deletions
--- a/collects/net/imap-unit.ss
+++ b/collects/net/imap-unit.ss
@ -272,7 +272,16 @@
 			     expunges fetches new?))
      (define (imap-connection? v) (imap? v))
      
-      (define imap-port-number (make-parameter 143))
+      (define imap-port-number (make-parameter 143
+					       (lambda (v)
+						 (unless (and (number? v)
+							      (exact? v)
+							      (integer? v)
+							      (<= 1 v 65535))
+						   (raise-type-error 'imap-port-number
+								     "exact integer in [1,65535]"
+								     v))
+						 v)))

      (define (imap-connect* r w username password inbox)
 	(with-handlers ([void