add sample and trap rules for SMTP32

1 files changed, 9 insertions, 7 deletions

diff --git a/fml/lib/Mail/Bounce/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm
index d6d45e6a..762e5309 100644
--- a/fml/lib/Mail/Bounce/SimpleMatch.pm
+++ b/fml/lib/Mail/Bounce/SimpleMatch.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: SimpleMatch.pm,v 1.11 2001/04/12 14:41:44 fukachan Exp $
+# $FML: SimpleMatch.pm,v 1.12 2001/04/12 16:41:22 fukachan Exp $
 #
 
 
@@ -101,10 +101,10 @@ my $address_trap_regexp = {
 
 
     # XXX what is this ???
-    # 'smtp32' => {
-    #	'start' => '.',
-    #	'end'   => 'original message follows',
-    # },
+    'smtp32' => {
+    	'start' => 'undeliverable to',
+    	'end'   => 'original message follows',
+    },
 };
 
 my $reason_trap_regexp = {
@@ -171,7 +171,9 @@ sub _reach_end
     0;
 }
 
-
+# XXX
+# XXX our state check is applied to each paragraph not the whole body. 
+# XXX
 sub _address_match
 {
     my ($self, $args) = @_;
@@ -182,7 +184,7 @@ sub _address_match
 	for my $mta_type (keys %$address_trap_regexp) {
 	    next unless $mta_type;
 
-	    my $start_regexp = $address_trap_regexp->{ $mta_type }->{ 'start' };
+	    my $start_regexp = $address_trap_regexp->{ $mta_type }->{'start'};
 	    if ($$rbuf =~ /$start_regexp/) { 
 		$args->{ mta_type  } = $mta_type;
 		$args->{ state }     = 1;