.

original commit: 316502114cbb30a104bb215ee5d5d2df6af2f8d3

collects/net/mime-unit.ss

@@ -73,6 +73,7 @@
       (define iana-extensions '(;; text
                                 ("plain" . plain)
                                 ("html" . html)
+                                ("enriched"  . enriched) ; added 5/2005 - probably not iana
                                 ("richtext"  . richtext)
                                 ("tab-separated-values" . tab-separated-values)
                                 ;; Multipart

collects/net/pop3-unit.ss

@@ -296,7 +296,8 @@
 	(lambda (communicator message-template . rest)
 	  (apply fprintf (communicator-sender communicator)
 		 (string-append message-template "\r\n")
-		 rest)))
+		 rest)
+	  (flush-output (communicator-sender communicator))))
 
       ;; get-one-line-from-server :
       ;; iport -> string