From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Apr 2001 00:47:06 +0000 (+0000)
Subject: Fix bug: header names are case-insensitive.
X-Git-Tag: 20090517-FFI~2865
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2841d358775a5b71d48111c745aec36559b6be7c;p=mit-scheme.git

Fix bug: header names are case-insensitive.
---

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 24bbb57c1..2d81ab560 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.75 2001/03/21 19:25:40 cph Exp $
+;;; $Id: sendmail.scm,v 1.76 2001/04/11 00:47:06 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -1317,8 +1317,8 @@ the user from the mailer."
 		 (if (re-search-forward "^[^ \t]" colon h-end #f)
 		     (re-match-start 0)
 		     h-end)))
-	    (if (or (string=? "mime-version" name)
-		    (string-prefix? "content-" name))
+	    (if (or (string-ci=? "mime-version" name)
+		    (string-prefix-ci? "content-" name))
 		(begin
 		  (delete-string f-start f-start*)
 		  (loop f-start))