reviewed. alignment cosmetics.

1 files changed, 20 insertions, 19 deletions

diff --git a/fml/doc/ja/tutorial/module/encode.sgml b/fml/doc/ja/tutorial/module/encode.sgml
index 695875cc..14d574c1 100644
--- a/fml/doc/ja/tutorial/module/encode.sgml
+++ b/fml/doc/ja/tutorial/module/encode.sgml
@@ -10,7 +10,7 @@
 
 <sect1 id="module.mail.message.encode.examplee">
 	<title>
-	Mail::Message::Encode の使い方の見本
+	[見本] Mail::Message::Encode の使い方
 	</title>
 
 <para>
@@ -46,14 +46,14 @@ fml-help ML's Count: 02012, 02013, 02016 など
 
 <sect1 id="module.mail.message.encode.specification">
 	<title>
-	Mail::Message::Encode の仕様の粗筋
+	Mail::Message::Encode の仕様(あらすじ)
 	</title>
 
 <para>
-本体はプライベートメソッド _convert_str_ref() にまとめてある。
+本体はプライベートメソッド _convert_str_ref() にまとめてあります。
 
 <screen>
-   sub convert # 引数が STR
+   sub convert # 引数 STR が変換対象
    {
 	my ($self, $str, $out_code, $in_code) = @_;
 	_convert_str_ref(\$str, $out, $in);
@@ -62,14 +62,14 @@ fml-help ML's Count: 02012, 02013, 02016 など
    }
 
 
-   sub convert_str_ref # 引数が STR_REF
+   sub convert_str_ref # 引数 STR_REF が変換対象
    {
 	my ($self, $str, $out, $in) = @_;
 	_convert_str_ref($str, $out, $in);
    }
 
 
-   sub _convert_str_ref # 引数が STR_REF
+   sub _convert_str_ref # 引数 STR_REF が変換対象
    {
         my ($str, $out, $in) = @_;
 
@@ -79,12 +79,11 @@ fml-help ML's Count: 02012, 02013, 02016 など
         # 2. 変換をトライ
         if ($in がわかった or $in が指定された) {
                 $out へ変換
-                jcode, Jcode, Encode は perl バージョンによって
-                よろしく変換をがんばる
+                jcode, Jcode, Encode などのモジュールが変換をがんばる
                 return 1 ; ＃成功
         }
         else { # principle of least surprise ?
-                なにもしない＃ str はそのまま返す
+                なにもしない＃ str を、そのまま返す
         }
 
         return 0 ; # 失敗
@@ -95,17 +94,17 @@ fml-help ML's Count: 02012, 02013, 02016 など
 sub base64 {}
 sub quoted_printable {}
 </screen>
-があるといいかな〜
+があるといいですかね？
 <screen>
 $x = $encode->base64($s);
 </screen>
-また、互換性というか便宜上、STR2XXX() も準備する。
+また、互換性というか便宜上、STR2XXX() も準備します。
 <screen>
    STR2EUC(  $str, [$icode] )
    STR2JIS(  $str, [$icode] )
    STR2SJIS( $str, [$icode] )
 </screen>
-は convert_str_ref を wrap する。
+は convert_str_ref を wrap する関数です。
 </para>
 
 </sect1>
@@ -117,15 +116,17 @@ $x = $encode->base64($s);
 	</title>
 
 <para>
-言語依存処理の過程では、プログラムの扱いやすい文字コードに変換し、
+言語依存処理の過程では、
+プログラムが扱いやすい文字コード(内部処理コード)に変換し、
 処理を行なう関数が多数存在します。
-そこで、そういった処理のための下請け関数を用意すると便利です。
+そこで、そういった処理のための下請け関数を用意しておくと便利です。
 </para>
 
 <para>
 run_in_chcode() は、
-関数 $proc を実行します。
-引数は、あらかじめ指定された文字コードに変換後、
+引数にある関数 $proc を実行します。
+関数 $proc を実行する際の引数は、
+あらかじめ指定された文字コードに変換したあと、
 関数 $proc に渡されるという仕様です。
 </para>
 
@@ -154,9 +155,9 @@ sub run_in_code
 </screen>
 これは、次のように動作します。
 <screen>
-$s は EUC-JP へ変換。
-$proc($s, $args); を実行
-$proc の実行結果を返す。
+(1) $s を EUC-JP へ変換。
+(2) $proc($s, $args); を実行。
+(3) $proc の実行結果を返す。
 </screen>
 </para>