diff options
| author | fukachan <fukachan> | 2001-11-17 04:03:36 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-17 04:03:36 +0000 |
| commit | 046aeab1e3e9cf5908b70bdb84497c9e07f2da75 (patch) | |
| tree | 81f4913bcdb9fe93f1ce931b659544a3247147c7 /fml/lib/Mail/ThreadTrack.pm | |
| parent | 2e433b4b40b942cb9325833061d66ed3362b308f (diff) | |
| download | fml8-046aeab1e3e9cf5908b70bdb84497c9e07f2da75.tar.gz fml8-046aeab1e3e9cf5908b70bdb84497c9e07f2da75.tar.bz2 fml8-046aeab1e3e9cf5908b70bdb84497c9e07f2da75.zip | |
change default target to _top
use $msg_base_url to show link to article
Diffstat (limited to 'fml/lib/Mail/ThreadTrack.pm')
| -rwxr-xr-x | fml/lib/Mail/ThreadTrack.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fml/lib/Mail/ThreadTrack.pm b/fml/lib/Mail/ThreadTrack.pm index ea97b384..5cfa1486 100755 --- a/fml/lib/Mail/ThreadTrack.pm +++ b/fml/lib/Mail/ThreadTrack.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: ThreadTrack.pm,v 1.17 2001/11/11 13:37:42 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.18 2001/11/16 10:08:18 fukachan Exp $ # package Mail::ThreadTrack; @@ -82,7 +82,11 @@ sub new db_type => 'AnyDBM_File', }; - my @keys = qw(myname ml_name spool_dir article_id db_base_dir reverse_order); + my @keys = qw(myname ml_name spool_dir article_id db_base_dir + reverse_order + base_url msg_base_url + ); + my %must = ('ml_name' => 1, 'spool_dir' => 1, 'db_base_dir' => 1); for my $key (@keys) { |