From 2841d358775a5b71d48111c745aec36559b6be7c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Apr 2001 00:47:06 +0000
Subject: [PATCH] Fix bug: header names are case-insensitive.

---
 v7/src/edwin/sendmail.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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))
-- 
2.25.1