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

19 files changed, 61 insertions, 500 deletions

diff --git a/fml/doc/ja/tutorial/book.sgml b/fml/doc/ja/tutorial/book.sgml
index 2b4be3db..98309b4a 100644
--- a/fml/doc/ja/tutorial/book.sgml
+++ b/fml/doc/ja/tutorial/book.sgml
@@ -2,7 +2,7 @@
 This is an sgml using DocBook dtd. Use sgmltools version 2.0.x or above
 to generate various output formats.
 
-$FML: book.sgml,v 1.9 2001/05/17 00:47:35 fukachan Exp $
+$FML: book.sgml,v 1.10 2001/05/17 04:00:43 fukachan Exp $
 -->
 
 <!doctype book public "-//FML//DTD DocBook V3.1-Based Extension//EN" [
@@ -74,6 +74,7 @@ $FML: book.sgml,v 1.9 2001/05/17 00:47:35 fukachan Exp $
 	&chapter.programingstyle; 
         &chapter.message;
 	&chapter.modules;
+	&chapter.nl;
   </part>
 
 
diff --git a/fml/doc/ja/tutorial/include/chapters.ent b/fml/doc/ja/tutorial/include/chapters.ent
index 4d9aa93b..3fc8a354 100644
--- a/fml/doc/ja/tutorial/include/chapters.ent
+++ b/fml/doc/ja/tutorial/include/chapters.ent
@@ -1,5 +1,5 @@
 <!--
-	$FML: chapters.ent,v 1.9 2001/05/17 04:00:44 fukachan Exp $
+	$FML: chapters.ent,v 1.10 2001/05/31 12:32:17 fukachan Exp $
 -->
 
 <!entity versin "1.1">
@@ -46,6 +46,7 @@
 <!entity chapter.config.cf       SYSTEM "internals/config.cf.sgml">
 <!entity chapter.message         SYSTEM "internals/message.sgml">
 <!entity sect.errormessage       SYSTEM "internals/errormessage.sgml">
+<!entity chapter.nl              SYSTEM "internals/nativelanguage.sgml">
 
 
 <!-- 開発 -->
diff --git a/fml/doc/ja/tutorial/internals/nativelanguage.sgml b/fml/doc/ja/tutorial/internals/nativelanguage.sgml
new file mode 100644
index 00000000..1a87203f
--- /dev/null
+++ b/fml/doc/ja/tutorial/internals/nativelanguage.sgml
@@ -0,0 +1,16 @@
+<!--
+   $FML: errormessage.sgml,v 1.3 2001/06/01 04:31:01 fukachan Exp $
+-->
+
+<chapter>
+   <title> 言語別の処理関数 </title>
+
+<para>
+fml 内部では言語に依存した変換処理が必要です。
+例えば、JIS と EUC の相互変換は随所で必要です。
+これはメールでは JIS が使われますが、
+プログラムでは EUC の方が扱いやすいためです。
+</para>
+
+
+</chapter>
diff --git a/fml/lib/FML/Filter/Rules.pm b/fml/lib/FML/Filter/Rules.pm
index 5b9b0e6c..e0b394ca 100644
--- a/fml/lib/FML/Filter/Rules.pm
+++ b/fml/lib/FML/Filter/Rules.pm
@@ -6,7 +6,7 @@ sub reject_null_mail_body
 
 sub reject_not_iso2022jp_japanese_string
 {
-    use Language::ISO2022JP;
+    use FML::NL::ISO2022JP;
     not is_iso2022jp_string();
 }
 
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($@);
diff --git a/fml/lib/FML/NL/ISO2022JP.pm b/fml/lib/FML/NL/ISO2022JP.pm
index 466e6beb..777f42ad 100644
--- a/fml/lib/FML/NL/ISO2022JP.pm
+++ b/fml/lib/FML/NL/ISO2022JP.pm
@@ -4,10 +4,10 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: ISO2022JP.pm,v 1.4 2001/05/30 14:35:11 fukachan Exp $
+# $FML: ISO2022JP.pm,v 1.1.1.1 2001/06/10 04:11:39 fukachan Exp $
 #
 
-package Language::ISO2022JP;
+package FML::NL::ISO2022JP;
 
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
@@ -16,42 +16,42 @@ use Carp;
 
 =head1 NAME
 
-Language::ISO2022JP - adapter for Language::Japanese
+FML::NL::ISO2022JP - adapter for FML::NL::Japanese
 
 =head1 SYNOPSIS
 
-    use Language::ISO2022JP qw(is_iso2022jp_string);
+    use FML::NL::ISO2022JP qw(is_iso2022jp_string);
     if ( is_iso2022jp_string($string) ) { do_something_if_Japanese;}
 
-    use Language::ISO2022JP qw(STR2EUC);
+    use FML::NL::ISO2022JP qw(STR2EUC);
     $euc_string = STR2EUC( $string );
 
 =cut
 
 
-use Language::Japanese::Utils qw(is_iso2022jp_string);
-use Language::Japanese::String qw(STR2JIS STR2EUC STR2SJIS);
+use FML::NL::Japanese::Utils qw(is_iso2022jp_string);
+use FML::NL::Japanese::String qw(STR2JIS STR2EUC STR2SJIS);
 
 require Exporter;
-@ISA = qw(Language::Japanese::Utils Language::Japanese::String Exporter);
-push(@EXPORT_OK, @Language::Japanese::Utils::EXPORT_OK);
-push(@EXPORT_OK, @Language::Japanese::String::EXPORT_OK);
+@ISA = qw(FML::NL::Japanese::Utils FML::NL::Japanese::String Exporter);
+push(@EXPORT_OK, @FML::NL::Japanese::Utils::EXPORT_OK);
+push(@EXPORT_OK, @FML::NL::Japanese::String::EXPORT_OK);
 
 
 =head1 METHODS
 
 =head2 C<is_iso2022jp_string>
 
-See L<Language::Japanese::Utils>
+See L<FML::NL::Japanese::Utils>
 
 =head2 C<STR2JIS> C<STR2EUC> C<STR2SJIS>
 
-See L<Language::Japanese::String>
+See L<FML::NL::Japanese::String>
 
 =head1 SEE ALSO
 
-L<Language::Japanese::Utils>,
-L<Language::Japanese::String>
+L<FML::NL::Japanese::Utils>,
+L<FML::NL::Japanese::String>
 
 =head1 AUTHOR
 
@@ -66,7 +66,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Language::ISO2022JP appeared in fml5 mailing list driver package.
+FML::NL::ISO2022JP appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 =cut
diff --git a/fml/lib/FML/NL/Japanese/String.pm b/fml/lib/FML/NL/Japanese/String.pm
index 4fdc9d4c..ca6c5c66 100644
--- a/fml/lib/FML/NL/Japanese/String.pm
+++ b/fml/lib/FML/NL/Japanese/String.pm
@@ -4,21 +4,21 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: String.pm,v 1.3 2001/04/03 09:45:48 fukachan Exp $
+# $FML: String.pm,v 1.1.1.1 2001/06/10 04:11:39 fukachan Exp $
 #
 
-package Language::Japanese::String;
+package FML::NL::Japanese::String;
 use strict;
 use Carp;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 
 =head1 NAME
 
-Language::Japanese::String -- utilities to manipulate strings
+FML::NL::Japanese::String -- utilities to manipulate strings
 
 =head1 SYNOPSIS
 
-    use Language::Japanese::String qw(STR2JIS);
+    use FML::NL::Japanese::String qw(STR2JIS);
     $euc_str = STR2JIS($str);
 
 =head1 METHOD
@@ -82,7 +82,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Language::Japanese::String appeared in fml5 mailing list driver package.
+FML::NL::Japanese::String appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 =cut
diff --git a/fml/lib/FML/NL/Japanese/Subject.pm b/fml/lib/FML/NL/Japanese/Subject.pm
index 50e81d89..aeeb3378 100644
--- a/fml/lib/FML/NL/Japanese/Subject.pm
+++ b/fml/lib/FML/NL/Japanese/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.4 2001/04/27 04:44:39 fukachan Exp $
+# $FML: Subject.pm,v 1.1.1.1 2001/06/10 04:11:39 fukachan Exp $
 #
 
 
@@ -13,7 +13,7 @@
 ###                                                   ###
 
 
-package Language::Japanese::Subject;
+package FML::NL::Japanese::Subject;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
@@ -21,12 +21,12 @@ use Jcode;
 
 =head1 NAME
 
-Language::Japanese::Subject - Japanese specific handling of a subject
+FML::NL::Japanese::Subject - Japanese specific handling of a subject
 
 =head1 SYNOPSIS
 
-    use Language::Japanese::Subject;
-    $is_reply = Language::Japanese::Subject::is_reply($subject);
+    use FML::NL::Japanese::Subject;
+    $is_reply = FML::NL::Japanese::Subject::is_reply($subject);
 
 =head1 DESCRIPTION
 
@@ -152,7 +152,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Language::Japanese::Subject appeared in fml5 mailing list driver package.
+FML::NL::Japanese::Subject appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 =cut
diff --git a/fml/lib/FML/NL/Japanese/Utils.pm b/fml/lib/FML/NL/Japanese/Utils.pm
index b202d4c7..3b6d3246 100644
--- a/fml/lib/FML/NL/Japanese/Utils.pm
+++ b/fml/lib/FML/NL/Japanese/Utils.pm
@@ -4,21 +4,21 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: Utils.pm,v 1.3 2001/04/03 09:45:48 fukachan Exp $
+# $FML: Utils.pm,v 1.1.1.1 2001/06/10 04:11:39 fukachan Exp $
 #
 
-package Language::Japanese::Utils;
+package FML::NL::Japanese::Utils;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
 =head1 NAME
 
-Language::Japanese::Utils - what is this
+FML::NL::Japanese::Utils - what is this
 
 =head1 SYNOPSIS
 
-   use Language::Japanese::Utils qw(is_iso2022jp_string);
+   use FML::NL::Japanese::Utils qw(is_iso2022jp_string);
    if ( is_iso2022jp_string($string) ) { do_something_if_Japanese;}
 
 =head1 DESCRIPTION
@@ -93,7 +93,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Language::Japanese::Utils appeared in fml5 mailing list driver package.
+FML::NL::Japanese::Utils appeared in fml5 mailing list driver package.
 See C<http://www.fml.org/> for more details.
 
 =cut
diff --git a/fml/lib/FML/Ticket/Model/minimal_states.pm b/fml/lib/FML/Ticket/Model/minimal_states.pm
index 1f0142bf..7f8e6cf7 100644
--- a/fml/lib/FML/Ticket/Model/minimal_states.pm
+++ b/fml/lib/FML/Ticket/Model/minimal_states.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: minimal_states.pm,v 1.17 2001/04/15 05:58:06 fukachan Exp $
+# $FML: minimal_states.pm,v 1.18 2001/04/17 09:52:54 fukachan Exp $
 #
 
 package FML::Ticket::Model::minimal_states;
@@ -901,7 +901,7 @@ sub show_articles_for_ticket
     print "</B><HR><PRE>\n" if $mode eq 'html';
 
     use FileHandle;
-    use Language::ISO2022JP qw(STR2EUC);
+    use FML::NL::ISO2022JP qw(STR2EUC);
 
     my $s = '';
     for (split(/\s+/, $articles)) {
@@ -1006,7 +1006,7 @@ sub _show_ticket_by_html_table
 
     $aid = (split(/\s+/, $articles))[0];
     my $buf = $self->_article_summary( $spool_dir ."/". $aid );
-    use Language::ISO2022JP qw(STR2EUC);
+    use FML::NL::ISO2022JP qw(STR2EUC);
     print STR2EUC($buf);
 }
 
diff --git a/fml/lib/Language/.cvsignore b/fml/lib/Language/.cvsignore
deleted file mode 100644
index b643ba41..00000000
--- a/fml/lib/Language/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-@@doc
diff --git a/fml/lib/Language/ISO2022JP.pm b/fml/lib/Language/ISO2022JP.pm
deleted file mode 100644
index 6d8372fd..00000000
--- a/fml/lib/Language/ISO2022JP.pm
+++ /dev/null
@@ -1,74 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $FML: ISO2022JP.pm,v 1.3 2001/04/03 09:45:47 fukachan Exp $
-#
-
-package Language::ISO2022JP;
-
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-
-=head1 NAME
-
-Language::ISO2022JP - adapter for Language::Japanese
-
-=head1 SYNOPSIS
-
-    use Language::ISO2022JP qw(is_iso2022jp_string);
-    if ( is_iso2022jp_string($string) ) { do_something_if_Japanese;}
-
-    use Language::ISO2022JP qw(STR2EUC);
-    $euc_string = STR2EUC( $string );
-
-=cut
-
-
-use Language::Japanese::Utils qw(is_iso2022jp_string);
-use Language::Japanese::String qw(STR2JIS STR2EUC STR2SJIS);
-
-require Exporter;
-@ISA = qw(Language::Japanese::Utils Language::Japanese::String Exporter);
-push(@EXPORT_OK, @Language::Japanese::Utils::EXPORT_OK);
-push(@EXPORT_OK, @Language::Japanese::String::EXPORT_OK);
-
-
-=head1 METHODS
-
-=head2 C<is_iso2022jp_string>
-
-See L<Language::Japanese::Utils>
-
-=head2 C<STR2JIS> C<STR2EUC> C<STR2SJIS>
-
-See L<Language::Japanese::String>
-
-=head1 SEE ALSO
-
-L<Language::Japanese::Utils>,
-L<Language::Japanese::String>
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Language::ISO2022JP appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-1;
diff --git a/fml/lib/Language/Japanese/.cvsignore b/fml/lib/Language/Japanese/.cvsignore
deleted file mode 100644
index b643ba41..00000000
--- a/fml/lib/Language/Japanese/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-@@doc
diff --git a/fml/lib/Language/Japanese/Makefile b/fml/lib/Language/Japanese/Makefile
deleted file mode 100644
index 4ed76816..00000000
--- a/fml/lib/Language/Japanese/Makefile
+++ /dev/null
@@ -1,6 +0,0 @@
-all: html
-
-html:	index.ja.html
-
-index.ja.html: *.pm
-	../../../../doc/bin/dir2url.pl > index.ja.html
diff --git a/fml/lib/Language/Japanese/String.pm b/fml/lib/Language/Japanese/String.pm
deleted file mode 100644
index 65b41b17..00000000
--- a/fml/lib/Language/Japanese/String.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2000 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $Id$
-# $FML$
-#
-
-package Language::Japanese::String;
-use strict;
-use Carp;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-
-=head1 NAME
-
-Language::Japanese::String -- utilities to manipulate strings
-
-=head1 SYNOPSIS
-
-    use Language::Japanese::String qw(STR2JIS);
-    $euc_str = STR2JIS($str);
-
-=head1 METHOD
-
-=head2 C<STR2JIS(string)>
-
-convert CHARSET of the given string to JIS.
-
-=head2 C<STR2EUC(string)>
-
-convert CHARSET of the given string to EUC.
-
-=head2 C<STR2SJIS(string)>
-
-convert CHARSET of the given string to SJIS.
-
-=cut
-
-
-require Exporter;
-@ISA       = qw(Exporter); 
-@EXPORT_OK = qw(STR2JIS STR2EUC STR2SJIS);
-
-use Jcode;
-
-
-sub STR2EUC
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'euc');
-    $str;
-}
-
-
-sub STR2JIS
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'jis');
-    $str;
-}
-
-
-sub STR2SJIS
-{
-    my ($str) = @_;
-    &Jcode::convert(\$str, 'sjis');
-    $str;
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Language::Japanese::String appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-1;
diff --git a/fml/lib/Language/Japanese/Subject.pm b/fml/lib/Language/Japanese/Subject.pm
deleted file mode 100644
index 8b8edd17..00000000
--- a/fml/lib/Language/Japanese/Subject.pm
+++ /dev/null
@@ -1,162 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $Id$
-# $FML: Subject.pm,v 1.3 2001/04/03 09:45:48 fukachan Exp $
-#
-
-
-###                                                   ###
-### CAUTION: THE CHARSET OF THIS FILE IS "EUC-JAPAN". ###
-###                                                   ###
-
-
-package Language::Japanese::Subject;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-use Carp;
-use Jcode;
-
-=head1 NAME
-
-Language::Japanese::Subject - Japanese specific handling of a subject
-
-=head1 SYNOPSIS
-
-    use Language::Japanese::Subject;
-    $is_reply = Language::Japanese::Subject::is_reply($subject);
-
-=head1 DESCRIPTION
-
-a collection to handle Japanese specific representations which appears
-in the subject.
-
-=cut
-
-
-require Exporter;
-@ISA = qw(Exporter);
-
-# XXX we should it in proper way in the future.
-# XXX but we import it anyway for further rewriting.
-my $CUT_OFF_RERERE_PATTERN = '';
-my $CUT_OFF_RERERE_HOOK    = '';
-
-
-# subjec reply pattern
-# apply patch from OGAWA Kunihiko <kuni@edit.ne.jp> 
-#            fml-support:7626 7653 07666
-#            Re: Re2:   Re[2]:     Re(2):     Re^2:    Re*2:
-# i-mode ? (PR fml-help: 00157 by OGAWA Kunihiko)
-my $pattern  = 'Re:|Re\d+:|Re\[\d+\]:|Re\(\d+\):|Re\^\d+:|Re\*\d+:|Re>';
-   $pattern .= '|(返信|返|ＲＥ|Ｒｅ)(\s*:|：)';
-
-
-=head1 METHODS
-
-=head2 C<new()>
-
-usual constructor.
-
-=head2 C<is_reply($string)>
-
-check whether C<$string> looks like a reply message.
-C<$string> is a C<Subject:> of the mail header.
-For example, it is like this:
-
-  Re: reply to your messages
-
-=cut
-
-
-sub new
-{
-    my ($self) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    return bless $me, $type;
-}
-
-
-sub is_reply
-{
-    my ($self, $x) = @_;
-    return 0 unless $x;
-    &Jcode::convert(\$x, 'euc');
-    return ($x =~ /^((\s|(　))*($pattern)\s*)+/ ? 1 : 0);
-}
-
-
-=head2 C<cut_off_reply_tag($subject)>
-
-cut off C<Re:> in the string C<$subject> like C<Re: ... >
-within C<Subject:>.
-
-=cut
-
-
-# fml-support: 07507
-# sub CutOffRe
-# {
-#    いままでどおりの Re: とかとっぱらう 
-#
-#   if ($LANGUAGE eq 'Japanese') {
-#	日本語処理依存ライブラリへ飛ぶ
-#	この中で $CUT_OFF_PATTERN (config.ph)などにしたがって
-#	切り落とすのも良し（きっと日本語を書くだろうとおもうわけで
-#	で、このライブラリの先で実行する）
-#   }
-#
-#   run-hooks $CUT_OFF_HOOK(ユーザ定義HOOK)
-#}
-# レレレ対策
-sub cut_off_reply_tag
-{
-    my ($subject) = @_;
-    my ($y, $limit);
-
-    Jcode::convert(\$subject, 'euc');
-
-    if ($CUT_OFF_RERERE_PATTERN) {
-	Jcode::convert(\$CUT_OFF_RERERE_PATTERN, 'euc');
-    }
-
-    $pattern .= '|' . $CUT_OFF_RERERE_PATTERN if ($CUT_OFF_RERERE_PATTERN);
-
-    # fixed by OGAWA Kunihiko <kuni@edit.ne.jp> (fml-support: 07815)
-    # $subject =~ s/^((\s*|(　)*)*($pattern)\s*)+/Re: /oi;
-    $subject =~ s/^((\s|(　))*($pattern)\s*)+/Re: /oi;
-
-    if ($CUT_OFF_RERERE_HOOK) { 
-	eval($CUT_OFF_RERERE_HOOK);
-	&Log($@) if $@;
-    }
-
-    Jcode::convert(\$subject, 'jis');
-    $subject;
-}
-
-
-=head1 AUTHOR
-
- Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Language::Japanese::Subject appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;
diff --git a/fml/lib/Language/Japanese/Utils.pm b/fml/lib/Language/Japanese/Utils.pm
deleted file mode 100644
index 13710d8d..00000000
--- a/fml/lib/Language/Japanese/Utils.pm
+++ /dev/null
@@ -1,102 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $Id$
-# $FML$
-#
-
-package Language::Japanese::Utils;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-=head1 NAME
-
-Language::Japanese::Utils - what is this
-
-=head1 SYNOPSIS
-
-   use Language::Japanese::Utils qw(is_iso2022jp_string);
-   if ( is_iso2022jp_string($string) ) { do_something_if_Japanese;}
-
-=head1 DESCRIPTION
-
-Utilities for Japanse string
-
-=head1 METHODS
-
-=head2 <is_iso2022jp_string($string)>
-
-check whether $string looks Japanese. 
-return 1 if it looks so.
-
-=cut
-
-require Exporter;
-
-@ISA       = qw(Exporter);
-@EXPORT_OK = qw(is_iso2022jp_string);
-
-
-sub is_iso2022jp_string
-{
-    my ($buf) = @_;
-    return (not _look_not_iso2022jp_string($buf));
-}
-
-
-# based on fml-support: 07020, 07029
-#   Koji Sudo <koji@cherry.or.jp>
-#   Takahiro Kambe <taca@sky.yamashina.kyoto.jp>
-# check the given buffer has unusual Japanese (not ISO-2022-JP)
-sub _look_not_iso2022jp_string
-{
-    my ($buf) = @_;
-
-    # check 8 bit on
-    if ($buf =~ /[\x80-\xFF]/){
-        return 1;
-    }
-
-    # check SI/SO
-    if ($buf =~ /[\016\017]/) {
-        return 1;
-    }
-
-    # HANKAKU KANA
-    if ($buf =~ /\033\(I/) {
-        return 1;
-    }
-
-    # MSB flag or other control sequences
-    if ($buf =~ /[\001-\007\013\015\020-\032\034-\037\177-\377]/) {
-        return 1;
-    }
-
-    0; # O.K.
-}
-
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Language::Japanese::Utils appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-1;
diff --git a/fml/lib/Language/Makefile b/fml/lib/Language/Makefile
deleted file mode 100644
index 2347ea49..00000000
--- a/fml/lib/Language/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-all: anal
-
-anal:
-	@ find . | sort | grep -v CVS | sed 's@./@@'
-
-html:	index.ja.html
-
-index.ja.html: *.pm Japanese/*.pm
-	(cd Japanese; make html)
-	../../../doc/bin/dir2url.pl > index.ja.html
-
-_clean:
-	rm -f index.ja.html */index.ja.html
-
-clean:
-	(cd ../../..;make clean)
diff --git a/regress/simulation/todo/doc b/regress/simulation/todo/doc
index 1714c34b..4d7b13da 100644
--- a/regress/simulation/todo/doc
+++ b/regress/simulation/todo/doc
@@ -1,4 +1,4 @@
-$FML: doc,v 1.47 2001/05/31 11:02:34 fukachan Exp $
+$FML: doc,v 1.48 2001/06/02 12:38:21 fukachan Exp $
 
 	TODO for documents
 	Last Modified: $Date$
@@ -8,10 +8,6 @@ $FML: doc,v 1.47 2001/05/31 11:02:34 fukachan Exp $
 
 	FML/Ticket/Model/minimal_states.pm
 
-	Language/Japanese/String.pm
-	Language/Japanese/Subject.pm
-	Language/Japanese/Utils.pm
-
 	SQL/Schema/toymodel.pm
 
 	Tie/JournaledFile.pm