[Mew-dist 1489] Re: imput error

[SAKAI Kiyotaka]

>> In article <19970808131034G.ozawa at example.com>, ozawa at example.com (Minoru Ozawa) writes:

> mew-1.88 + im-55 で、From を 以下のようにしたときにimputがエラーになっ
> てしまいます。

>  From: ozawa at example.com (尾澤　稔)

このパッチを当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/Message.pm.in,v
retrieving revision 1.1
diff -u -r1.1 Message.pm.in
--- Message.pm.in	1997/08/08 05:31:51	1.1
+++ Message.pm.in	1997/08/08 05:32:04
@@ -229,7 +229,7 @@
 	my ($field_name) = @_;
 	my ($line);
 	foreach $line (@Header) {
-		if ($line =~ /^$field_name:\s*(.*)/i) {
+		if ($line =~ /^$field_name:\s*(.*)/is) {
 			my ($val) = $1;
 			$val =~ s/\s*$//;
 			return $val;