--- a/mimecut.pl	Tue Oct 09 10:20:52 2007 +0000
+++ b/mimecut.pl	Mon Oct 29 16:25:31 2007 +0000
@@ -77,7 +77,7 @@
 		
 		foreach my $h (qw(from to cc bcc)) {
 			if ($header{$h}) {
-				if ($header{$h} =~ /$vips/) {
+				if ($header{$h} =~ /$vips/i) {
 					print $header;
 					local $/ = \10240;
 					print while <$m>;
@@ -144,7 +144,7 @@
                 or die "can't read $CONFDIR/mimes.conf!\n";
             $re = qr{@{[join "|", map { chomp; "(?:".quotemeta($_).")" } grep !/(?:^\s*#|^\s*$)/, <$fh>]}};
         }
-        return $type =~ /$re/;
+        return $type =~ /$re/i;
     }
 }