avoid duplicated commit to articles DB { thread_id => [ id1 id2 ... ] }

1 files changed, 9 insertions, 1 deletions

diff --git a/fml/lib/Mail/ThreadTrack/Analyze.pm b/fml/lib/Mail/ThreadTrack/Analyze.pm
index ba54dc8f..102e922d 100644
--- a/fml/lib/Mail/ThreadTrack/Analyze.pm
+++ b/fml/lib/Mail/ThreadTrack/Analyze.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: Analyze.pm,v 1.11 2001/11/07 03:14:22 fukachan Exp $
+# $FML: Analyze.pm,v 1.12 2001/11/09 13:02:34 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Analyze;
@@ -12,6 +12,8 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
+my $debug = defined $ENV{'debug'} ? 1 : 0;
+
 =head1 NAME
 
 Mail::ThreadTrack::Analyze - analyze mail thread relation
@@ -522,6 +524,12 @@ sub _update_db
     # prepare hash table tied to db_dir/*db's
     my $rh = $self->{ _hash_table };
 
+    # check
+    if (defined $rh->{ _thread_id }->{ $article_id }) {
+	print STDERR "_update_db.ignore id=$article_id\n" if $debug;
+	return;
+    }
+
     # 1. 
     $rh->{ _thread_id }->{ $article_id }  = $thread_id;
     $rh->{ _date      }->{ $article_id }  = time;