From 2a6ed233c03e5b5de481abecefeb65e70bac2bca Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 12 Apr 2001 16:41:22 +0000
Subject: disable smtp32 fix to trap freeml.com error part start_pattern. more
 information in debug message.

---
 fml/lib/Mail/Bounce/SimpleMatch.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/fml/lib/Mail/Bounce/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm
index 8c746b71..d6d45e6a 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.10 2001/04/12 14:27:44 fukachan Exp $
+# $FML: SimpleMatch.pm,v 1.11 2001/04/12 14:41:44 fukachan Exp $
 #
 
 
@@ -72,7 +72,7 @@ my $address_trap_regexp = {
 
 
     'freeml.com' => {
-	'start' => '.',
+	'start' => 'FreeML',
 	'end'   => 'http\:\/\/www\.freeml\.com\/help\/',
     },
 
@@ -101,10 +101,10 @@ my $address_trap_regexp = {
 
 
     # XXX what is this ???
-    'smtp32' => {
-	'start' => '.',
-	'end'   => 'original message follows',
-    },
+    # 'smtp32' => {
+    #	'start' => '.',
+    #	'end'   => 'original message follows',
+    # },
 };
 
 my $reason_trap_regexp = {
@@ -204,7 +204,7 @@ sub _address_match
 
       SCAN:
 	for (@buf) {
-	    print "scan> $_\n" if $debug;
+	    print "scan($args->{ mta_type })> $_\n" if $debug;
 	    last SCAN if /$end_regexp/;
 
 	    if (/(\S+\@\S+)/) { 
-- 
cgit v1.2.1