From 8828d22d25cdae837d46f02dc06ebc8aea01acb5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Feb 2003 23:39:26 +0000 Subject: [PATCH] . original commit: 6d801ae2bc7f78fe0bd72f31645ed740af9d3112 --- collects/net/mime-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/net/mime-unit.ss b/collects/net/mime-unit.ss index 0662383..ffe652d 100644 --- a/collects/net/mime-unit.ss +++ b/collects/net/mime-unit.ss @@ -623,7 +623,7 @@ ;; no intervening white space, by any token> (define x-token (lambda (value) - (let* ((r (regexp "^[xX]-(.*)")) + (let* ((r #rx"^[xX]-(.*)") (h (trim-spaces value)) (ans (regexp-match r h))) (and ans @@ -643,7 +643,7 @@ ;; as specified in RFC 2048.> (define iana-token (lambda (value) - (let ((ans (assoc (trim-spaces value) iana-extensions))) + (let ((ans (assoc (lowercase (trim-spaces value)) iana-extensions))) (and ans (cdr ans)))))