diff --git a/collects/net/mime-unit.ss b/collects/net/mime-unit.ss
index 94f563f..8abeec0 100644
--- a/collects/net/mime-unit.ss
+++ b/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
diff --git a/collects/net/pop3-unit.ss b/collects/net/pop3-unit.ss
index 79a73aa..46ed806 100644
--- a/collects/net/pop3-unit.ss
+++ b/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