--- mpage-2.5.4/mpage.c.resticted-fonts	2004-05-31 04:41:25.000000000 +0900
+++ mpage-2.5.4/mpage.c	2006-05-12 16:00:56.000000000 +0900
@@ -326,23 +326,32 @@
                    HSIZE - 2);
     fprintf(outfd, "textfont setfont\n");
     fprintf(outfd, "(a) stringwidth pop /mp_a_x exch def\n");
+
+    if (current_locale){
+      if (!strncmp (current_locale, "ja_JP", 5)){
 #ifdef KANJI
 #ifdef GOTHIC
-    fprintf(outfd, "/kanj /GothicBBB-Medium-H findfont %d scalefont def\n", fsize - 1);
-    fprintf(outfd, "/han /GothicBBB-Medium.Hankaku findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/kanj /GothicBBB-Medium-H findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/han /GothicBBB-Medium.Hankaku findfont %d scalefont def\n", fsize - 1);
 #else
-    fprintf(outfd, "/kanj /Ryumin-Light-H findfont %d scalefont def\n", fsize - 1);
-    fprintf(outfd, "/han /Ryumin-Light.Hankaku findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/kanj /Ryumin-Light-H findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/han /Ryumin-Light.Hankaku findfont %d scalefont def\n", fsize - 1);
 #endif
 #endif
 #ifdef GOTHIC
-    fprintf(outfd, "/unijis /GothicBBB-Medium-UniJIS-UTF8-H findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/unijis /GothicBBB-Medium-UniJIS-UTF8-H findfont %d scalefont def\n", fsize - 1);
 #else
-    fprintf(outfd, "/unijis /Ryumin-Light-UniJIS-UTF8-H findfont %d scalefont def\n", fsize - 1);
+	fprintf(outfd, "/unijis /Ryumin-Light-UniJIS-UTF8-H findfont %d scalefont def\n", fsize - 1);
 #endif
-    fprintf(outfd, "/uniks /Baekmuk-Batang-UniKS-UTF8-H findfont %d scalefont def\n", fsize - 1);
-    fprintf(outfd, "/unigb /BousungEG-Light-GB-UniGB-UTF8-H findfont %d scalefont def\n", fsize - 1);
-    fprintf(outfd, "/unicns /ShanHeiSun-Light-UniCNS-UTF8-H findfont %d scalefont def\n", fsize - 1);
+      }
+      else if (!strncmp (current_locale, "ko_KR", 5))
+	fprintf(outfd, "/uniks /Baekmuk-Batang-UniKS-UTF8-H findfont %d scalefont def\n", fsize - 1);
+      else if (!strncmp (current_locale, "zh_CN", 5))
+	fprintf(outfd, "/unigb /BousungEG-Light-GB-UniGB-UTF8-H findfont %d scalefont def\n", fsize - 1);
+      else if (!strncmp (current_locale, "zh_TW", 5))
+	fprintf(outfd, "/unicns /ShanHeiSun-Light-UniCNS-UTF8-H findfont %d scalefont def\n", fsize - 1);
+    }
+
 # ifdef DEBUG
     if (Debug_flag & DB_PSMPAGE)
         fprintf(outfd, "(\\t'a' length ) print mp_a_x ==\nflush\n");