From 64b2048daefe119fb86aee5c5be22189c9b3e0f7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 17 Feb 2002 01:23:09 +0000
Subject: [PATCH] .

original commit: 43b5d3542eba825a03f7e4d35da6651dec6b4110
---
 collects/net/mime-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/mime-unit.ss b/collects/net/mime-unit.ss
index 2aac942..46e7846 100644
--- a/collects/net/mime-unit.ss
+++ b/collects/net/mime-unit.ss
@@ -646,7 +646,7 @@
                  (att (attribute (regexp-replace r par "\\1")))
                  (val (value (regexp-replace r par "\\2"))))
             (and (regexp-match r par)
-                 att val (cons att val)))))
+                 att val (cons (lowercase att) val)))))
       
       ;; value := token / quoted-string
       (define value