diff options
| author | fukachan <fukachan> | 2001-10-27 16:42:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-27 16:42:50 +0000 |
| commit | f1524c57dd91df2e0ade8c2e959930af4b7d9afc (patch) | |
| tree | 47c02258410501000e0a19424893fa27ee1148ef | |
| parent | 0dd80251b892d6e8b6d81b654083e4166945ed36 (diff) | |
| download | fml8-f1524c57dd91df2e0ade8c2e959930af4b7d9afc.tar.gz fml8-f1524c57dd91df2e0ade8c2e959930af4b7d9afc.tar.bz2 fml8-f1524c57dd91df2e0ade8c2e959930af4b7d9afc.zip | |
oops, should be s///mi to trap encodinge
| -rw-r--r-- | fml/lib/Mail/Message.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 371a344e..9cf760b9 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Message.pm,v 1.32 2001/10/21 15:29:20 fukachan Exp $ +# $FML: Message.pm,v 1.33 2001/10/27 04:50:39 fukachan Exp $ # package Mail::Message; @@ -1536,7 +1536,7 @@ sub get_encoding_mechanism my ($self) = @_; my $buf = $self->header_in_body_part(); - if ($buf =~ /Content-Transfer-Encoding:\s*(\S+)/i) { + if ($buf =~ /Content-Transfer-Encoding:\s*(\S+)/mi) { my $mechanism = $1; $mechanism =~ tr/A-Z/a-z/; return $mechanism; |