.

original commit: 41e8ef18b5348fea14fdd56d2b4bf1e004e5c6a5
2004-07-04 21:48:39 +00:00 · 2004-07-04 21:48:39 +00:00 · e952fcff8a
commit e952fcff8a
parent ad3fa9a46c
1 changed files with 3 additions and 1 deletions
--- a/collects/net/smtp-unit.ss
+++ b/collects/net/smtp-unit.ss
@ -47,7 +47,9 @@
 		(and (bytes? l)
 		     (not (= (char->integer #\.) (bytes-ref l 0)))))
 	    l
-	    (string-append "." l)))
+	    (if (bytes? l)
+		(bytes-append #"." l)
+		(string-append "." l))))

      (define smtp-sending-end-of-message
 	(make-parameter void