diff options
| author | fukachan <fukachan> | 2004-03-31 12:53:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-31 12:53:50 +0000 |
| commit | 5432a7011fcb4386b56fc044a54ec4c4dd2da0e5 (patch) | |
| tree | 0d73b11db0e7a903d7b020323b97f6aaaa8cd10d /fml/lib/FML/Process | |
| parent | 408f950159c3aae27154eaaceb15d6d91095d9d9 (diff) | |
| download | fml8-5432a7011fcb4386b56fc044a54ec4c4dd2da0e5.tar.gz fml8-5432a7011fcb4386b56fc044a54ec4c4dd2da0e5.tar.bz2 fml8-5432a7011fcb4386b56fc044a54ec4c4dd2da0e5.zip | |
Mail::ThreadTrack is obsoleted. remove related codes.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 41 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 3 |
2 files changed, 2 insertions, 42 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 717e45be..a756acd8 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.140 2004/03/17 10:27:35 fukachan Exp $ +# $FML: Distribute.pm,v 1.141 2004/03/28 10:33:35 fukachan Exp $ # package FML::Process::Distribute; @@ -514,45 +514,6 @@ sub _deliver_article # Arguments: OBJ($curproc) # Side Effects: update thread information # Return Value: none -sub _old_thread_check -{ - my ($curproc) = @_; - my $config = $curproc->config(); - my $pcb = $curproc->pcb(); - my $myname = $curproc->myname(); - - my $ml_name = $config->{ ml_name }; - my $thread_db_dir = $config->{ thread_db_dir }; - my $spool_dir = $config->{ spool_dir }; - my $article_id = $pcb->get('article', 'id'); - my $is_rewrite_hdr = $config->yes('use_thread_subject_tag') ? 1 : 0; - my $ttargs = { - myname => $myname, - logfp => \&Log, - fd => \*STDOUT, - db_base_dir => $thread_db_dir, - ml_name => $ml_name, - spool_dir => $spool_dir, - article_id => $article_id, - rewrite_header => $is_rewrite_hdr, - }; - - my $msg = $curproc->article_message(); - - # old thread engine - eval q{ - use Mail::ThreadTrack; - my $thread = new Mail::ThreadTrack $ttargs; - $thread->analyze($msg); - }; - $curproc->log($@) if $@; -} - - -# Descriptions: the top level interface to drive thread tracking system. -# Arguments: OBJ($curproc) -# Side Effects: update thread information -# Return Value: none sub _new_thread_check { my ($curproc) = @_; diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index bd1f6fd1..4ed2859b 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.103 2003/12/30 03:56:00 fukachan Exp $ +# $FML: Switch.pm,v 1.104 2004/01/02 14:42:44 fukachan Exp $ # package FML::Process::Switch; @@ -547,7 +547,6 @@ L<FML::Process::Distribute>, L<FML::Process::Command>, L<FML::Process::ListServer>, L<FML::Process::Configure>, -L<FML::Process::ThreadTrack>, L<FML::Process::MailErrorAnalyzer> =head1 CODING STYLE |