From 0fa8df4c40b5bd040b1d09fe6e7675011bdae4b5 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Tue, 27 Apr 2004 13:35:31 +0000
Subject: fix comments

---
 fml/lib/Mail/Message/Encode.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'fml/lib/Mail/Message/Encode.pm')

diff --git a/fml/lib/Mail/Message/Encode.pm b/fml/lib/Mail/Message/Encode.pm
index dc1c1e46..d55506dd 100644
--- a/fml/lib/Mail/Message/Encode.pm
+++ b/fml/lib/Mail/Message/Encode.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: Encode.pm,v 1.16 2003/11/08 05:56:22 fukachan Exp $
+# $FML: Encode.pm,v 1.17 2004/01/24 09:04:00 fukachan Exp $
 #
 
 package Mail::Message::Encode;
@@ -18,6 +18,17 @@ Mail::Message::Encode - encode/decode/charset conversion routines
 
 =head1 SYNOPSIS
 
+    use Mail::Message::Encode;
+    my $obj = new Mail::Message::Encode;
+    $str    = $obj->encode_mime_string($str, $encode, $out_code, $in_code);
+    $self->set($str);
+
+It is not recommended but if you use old style, import required function:
+
+    use Mail::Message::Encode qw(STR2EUC);
+    my $euc_string = STR2EUC($string);
+
+
 =head1 DESCRIPTION
 
 =head1 METHODS
@@ -79,7 +90,7 @@ sub detect_code
     my ($self, $str) = @_;
     my $lang = $self->{ _language };
 
-    # XXX-TODO: care for non Japanese.
+    # XXX Japanese includes English.
     if ($lang eq 'japanese' || $lang eq 'english') {
 	# getcode() can detect the follogin code:
 	# jis, sjis, euc, utf8, ucs2, ucs4, utf16, utf16-ge, utf16-le,
@@ -150,7 +161,7 @@ sub convert_str_ref
 	croak("convert_str_ref: invalid input data");
     }
 
-    # XXX-TODO: care for non Japanese.
+    # XXX Japanese includes English.
     if ($lang eq 'japanese' || $lang eq 'english') {
 	# 1. if the encoding for the given $str_ref is unknown, return ASAP.
 	unless (defined $in_code) {
-- 
cgit v1.2.1