From c41bad8dd40b5903427e0667d019acb35ebb82dd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 7 Apr 2003 21:01:11 +0000
Subject: [PATCH] .

original commit: b5317355c440b20bec34ea7850beba84b52a425d
---
 collects/net/mime-util.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/net/mime-util.ss b/collects/net/mime-util.ss
index d390bd4f33..597a0655fb 100644
--- a/collects/net/mime-util.ss
+++ b/collects/net/mime-util.ss
@@ -125,11 +125,13 @@
 		     (substring rest 1 size)
 		     (sub1 size)))))))
 
-  (define warning
+  (define warning void)
+#|
     (lambda (msg . args)
       (fprintf (current-error-port)
 	       (apply format (cons msg args)))
       (newline (current-error-port))))
+|#
 
   ;; Copies its input `in' to its ouput port if given, it uses
   ;; current-output-port if out is not provided.