From c4fe609b4187fa07b65620091d5301ad8fe6eb13 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 10 Apr 2002 04:28:34 +0000
Subject: my $prev_type

---
 fml/lib/FML/Filter/ContentCheck.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fml/lib/FML/Filter/ContentCheck.pm b/fml/lib/FML/Filter/ContentCheck.pm
index 9c480204..ba0fef84 100644
--- a/fml/lib/FML/Filter/ContentCheck.pm
+++ b/fml/lib/FML/Filter/ContentCheck.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: ContentCheck.pm,v 1.1 2002/04/07 15:01:09 tmu Exp $
+# $FML: ContentCheck.pm,v 1.2 2002/04/08 12:44:24 fukachan Exp $
 #
 
 package FML::Filter::ContentCheck;
@@ -130,8 +130,8 @@ sub only_plaintext
 
 	$prevmp = $mp->{ prev };
 	if($prevmp) {
-	    $prev_type = $prevmp->data_type();
-	    if(prev_type eq "multipart.delimiter") {
+	    my $prev_type = $prevmp->data_type();
+	    if ($prev_type eq "multipart.delimiter") {
 		$prevmp->delete_message_part_link();
 	    }
 	}
-- 
cgit v1.2.1