Headers in incoming mail are now parsed case insensitively.rt-1.0.7

Version is now 1.0.7

3 files changed, 12 insertions, 7 deletions

diff --git a/Makefile b/Makefile
index 7eef6bc6dd..12671cfb24 100755
--- a/Makefile
+++ b/Makefile
@@ -11,7 +11,7 @@ RTGROUP			=	rt
 
 RT_VERSION_MAJOR	=	1
 RT_VERSION_MINOR	=	0
-RT_VERSION_PATCH	=	6
+RT_VERSION_PATCH	=	7
 
 RT_VERSION =	$(RT_VERSION_MAJOR).$(RT_VERSION_MINOR).$(RT_VERSION_PATCH)
 
diff --git a/NEWS b/NEWS
index 8f1c6cdf94..7af9ead60d 100755
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,11 @@ Jan 8 2000
  
  Fixed setting due dates via the web ui, thanks to Thomas Koester
 
+Dec 11 2000
+-----------
+
+Mail headers are now parsed case insensitively, as they should be.
+
 Dec 1 2000
 ----------
 
diff --git a/lib/rt/ui/mail/manipulate.pm b/lib/rt/ui/mail/manipulate.pm
index 5525266299..8b26fc9524 100755
--- a/lib/rt/ui/mail/manipulate.pm
+++ b/lib/rt/ui/mail/manipulate.pm
@@ -260,26 +260,26 @@ sub parse_headers {
 	    $subject =~ s/\($rt::req[$serial_num]{'queue_id'}\)//i;
 	}
 	
-	elsif (($line =~ /^Subject: (.*)/s) and (!$subject)){
+	elsif (($line =~ /^Subject: (.*)/si) and (!$subject)){
 	    $subject=$1;
 	}
 	
-	elsif (($line =~ /^Reply-To: (.*)/s)) {
+	elsif (($line =~ /^Reply-To: (.*)/si)) {
 	    $replyto = $1;
 	}
 	
-	elsif ($line =~ /^From: (.*)/s) {
+	elsif ($line =~ /^From: (.*)/si) {
 	    $from = $1;
 	}
 	
-	elsif ($line =~ /^Sender: (.*)/s){
+	elsif ($line =~ /^Sender: (.*)/si){
 	    $sender = $1;
 	    
 	}
-	elsif ($line =~ /^Date: (.*)/s) {
+	elsif ($line =~ /^Date: (.*)/si) {
 	    $time_in_text = $1;
 	}
-	elsif ($line =~ /^Precedence: (.*)/s) {
+	elsif ($line =~ /^Precedence: (.*)/si) {
 	    $precedence = $1;
 	}