From abb87ebf2e413f500648cd38c5d22df15c62bdd7 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 21 Jul 2003 10:37:12 +0000
Subject: method-ify date_to_unixtime() of Mail::Message::Date.

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

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

diff --git a/fml/lib/Mail/ThreadTrack/Analyze.pm b/fml/lib/Mail/ThreadTrack/Analyze.pm
index be113419..14638778 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.29 2002/12/22 03:20:44 fukachan Exp $
+# $FML: Analyze.pm,v 1.30 2002/12/24 10:19:49 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Analyze;
@@ -552,7 +552,8 @@ sub _speculate_time
 
     if (defined $header->get('date')) {
 	use Mail::Message::Date;
-	return Mail::Message::Date::date_to_unixtime($header->get('date'));
+	my $obj = new Mail::Message::Date;
+	return $obj->date_to_unixtime($header->get('date'));
     }
     else {
 	return time;
-- 
cgit v1.2.1