From ce5b2bc9242f6ce9eedbfb5c0a287ebec9ed8a26 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 4 Nov 2001 06:53:22 +0000
Subject: check by defined($self->{ _pragma })

---
 fml/lib/Mail/ThreadTrack/Analyze.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'fml/lib/Mail/ThreadTrack')

diff --git a/fml/lib/Mail/ThreadTrack/Analyze.pm b/fml/lib/Mail/ThreadTrack/Analyze.pm
index 4202d046..242aab17 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.8 2001/11/03 11:58:45 fukachan Exp $
+# $FML: Analyze.pm,v 1.9 2001/11/04 04:43:18 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Analyze;
@@ -223,7 +223,9 @@ sub update_thread_status
     my $subject = '';
     my $pragma  = '';
 
-    return if $self->{ _pragma } eq 'ignore';
+    if (defined $self->{ _pragma }) {
+	return if $self->{ _pragma } eq 'ignore';
+    }
 
     unless (ref($msg) eq 'Mail::Message') {
 	croak("invalid object");
@@ -451,7 +453,9 @@ sub update_db
     my $config  = $self->{ _config };
     my $ml_name = $config->{ ml_name };
 
-    return if $self->{ _pragma } eq 'ignore';
+    if (defined $self->{ _pragma }) {
+	return if $self->{ _pragma } eq 'ignore';
+    }
 
     $self->db_open();
 
-- 
cgit v1.2.1