forward request to Mail::Message::Language::Japanese::Subject

1 files changed, 7 insertions, 111 deletions

diff --git a/fml/lib/FML/Language/Japanese/Subject.pm b/fml/lib/FML/Language/Japanese/Subject.pm
index f22dc462..103838ad 100644
--- a/fml/lib/FML/Language/Japanese/Subject.pm
+++ b/fml/lib/FML/Language/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.1.1.1 2001/07/31 14:13:08 fukachan Exp $
+# $FML: Subject.pm,v 1.2 2001/07/31 14:19:42 fukachan Exp $
 #
 
 
@@ -17,7 +17,9 @@ package FML::Language::Japanese::Subject;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
-use Jcode;
+
+use Mail::Message::Language::Japanese::Subject;
+@ISA = qw(Mail::Message::Language::Japanese::Subject);
 
 =head1 NAME
 
@@ -30,118 +32,12 @@ FML::Language::Japanese::Subject - Japanese specific handling of a 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;
-}
-
+Mail::Message::Language::Japanese::Subject has actual codes.
+See L<Mail::Message::Language::Japanese::Subject> for more details.
 
 =head1 AUTHOR
 
- Ken'ichi Fukamachi
+Ken'ichi Fukamachi
 
 =head1 COPYRIGHT