move Language:: to FML::NL:: name space due to the function usage

1 files changed, 5 insertions, 5 deletions

diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index 44f446cb..601e98eb 100644
--- a/fml/lib/FML/Header/Subject.pm
+++ b/fml/lib/FML/Header/Subject.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: Subject.pm,v 1.16 2001/04/03 09:45:42 fukachan Exp $
+# $FML: Subject.pm,v 1.17 2001/05/30 04:03:21 fukachan Exp $
 #
 
 package FML::Header::Subject;
@@ -161,10 +161,10 @@ sub is_reply
 
     return 1 if $subject =~ /^\s*Re:/i;
 
-    my $pkg = 'Language::Japanese::Subject';
+    my $pkg = 'FML::NL::Japanese::Subject';
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
-	return 1 if &Language::Japanese::Subject::is_reply($subject);
+	return 1 if &FML::NL::Japanese::Subject::is_reply($subject);
     };
 
     return 0;
@@ -180,11 +180,11 @@ sub _cut_off_reply
 {
     my ($self, $r_subject) = @_;
 
-    my $pkg = 'Language::Japanese::Subject';
+    my $pkg = 'FML::NL::Japanese::Subject';
     eval qq{ require $pkg; $pkg->import();};
     unless ($@) {
 	$$r_subject = 
-	    &Language::Japanese::Subject::cut_off_reply_tag($$r_subject);
+	    &FML::NL::Japanese::Subject::cut_off_reply_tag($$r_subject);
     }
     else  {
 	Log($@);