--- lib/ps2pdfwr.org	2003-09-01 18:39:30.000000000 +0900
+++ lib/ps2pdfwr	2003-09-25 18:39:14.000000000 +0900
@@ -31,6 +31,169 @@
 	outfile="$2"
 fi
 
+[ "$NeverEmbedFontList" != "" ] || NeverEmbedFontList="
+/Courier
+/Courier-Bold
+/Courier-BoldOblique
+/Courier-Oblique
+/Helvetica
+/Helvetica-Bold
+/Helvetica-BoldOblique
+/Helvetica-Oblique
+/Symbol
+/Times-Bold
+/Times-BoldItalic
+/Times-Italic
+/Times-Roman
+/ZapfDingbats
+"
+[ "$AlwaysEmbedFontList" != "" ] || AlwaysEmbedFontList="
+/AvantGarde-Book
+/AvantGarde-BookOblique
+/AvantGarde-Demi
+/AvantGarde-DemiOblique
+/Bookman-Demi
+/Bookman-DemiItalic
+/Bookman-Light
+/Bookman-LightItalic
+/Helvetica-Narrow
+/Helvetica-Narrow-Bold
+/Helvetica-Narrow-BoldOblique
+/Helvetica-Narrow-Oblique
+/Palatino-Bold
+/Palatino-BoldItalic
+/Palatino-Italic
+/Palatino-Roman
+/ZapfChancery-MediumItalic
+
+/Arial-BoldItalicMT
+/Arial-BoldMT
+/Arial-ItalicMT
+/ArialMT
+/ArialNarrow
+/ArialNarrow-Bold
+/ArialNarrow-BoldItalic
+/ArialNarrow-Italic
+/BookmanOldStyle
+/BookmanOldStyle-Bold
+/BookmanOldStyle-BoldItalic
+/BookmanOldStyle-Italic
+/CenturyGothic
+/CenturyGothic-Bold
+/CenturyGothic-BoldItalic
+/CenturyGothic-Italic
+/CourierNewPS-BoldItalicMT
+/CourierNewPS-BoldMT
+/CourierNewPS-ItalicMT
+/CourierNewPSMT
+/NewCenturySchlbk-Bold
+/NewCenturySchlbk-BoldItalic
+/NewCenturySchlbk-Italic
+/NewCenturySchlbk-Roman
+/PalatinoLinotype-Bold
+/PalatinoLinotype-BoldItalic
+/PalatinoLinotype-Italic
+/PalatinoLinotype-Roman
+/TimesNewRomanPS-BoldItalicMT
+/TimesNewRomanPS-BoldMT
+/TimesNewRomanPS-ItalicMT
+/TimesNewRomanPSMT
+"
+[ "$NeverEmbedCIDFontList" != "" ] || NeverEmbedCIDFontList="
+/MSung-Light
+/MSung-Medium
+/MHei-Medium
+/MKai-Medium
+/STSong-Light
+/STFangsong-Light
+/STHeiti-Regular
+/STKaiti-Regular
+/Ryumin-Light
+/GothicBBB-Medium
+/HeiseiMin-W3
+/HeiseiKakuGo-W5
+/KozMin-Regular
+/HYGoThic-Medium
+/HYGungSo-Bold
+/HYKHeadLine-Bold
+/HYKHeadLine-Medium
+/HYSMyeongJo-Medium
+/HYRGoThic-Medium
+
+/MOEKai-Regular
+/MOESung-Regular
+/WadaGo-Bold
+/WadaMaruGo-Regular
+/WadaMaruGo-RegularH
+/WadaMin-Bold
+/WadaMin-Regular
+/WadaMin-RegularH
+/Munhwa-Bold
+/Munhwa-Regular
+/MunhwaGothic-Bold
+/MunhwaGothic-Regular
+/MunhwaGungSeo-Bold
+/MunhwaGungSeo-Light
+/MunhwaGungSeoHeulim-Bold
+/MunhwaGungSeoHeulim-Light
+/MunhwaHoonMin-Regular
+
+/MingLiU
+/PMingLiU
+/SimHei
+/SimSun
+/NSimSun
+/HGGothicE
+/HGGothicEPRO
+/HGGothicM
+/HGGyoshotai
+/HGMarugothicMPRO
+/HGPGothicE
+/HGPGothicM
+/HGPGyoshotai
+/HGPSoeiKakugothicUB
+/HGPSoeiKakupoptai
+/HGSGothicE
+/HGSGothicM
+/HGSGyoshotai
+/HGSSoeiKakugothicUB
+/HGSSoeiKakupoptai
+/HGSeikaishotaiPRO
+/HGSoeiKakugothicUB
+/HGSoeiKakupoptai
+/Kochi-Gothic
+/Kochi-Mincho
+/MojikumiKata-EB
+/Mona
+/MS-Mincho
+/MS-PMincho
+/MS-Gothic
+/MS-PGothic
+/MS-UIGothic
+/Batang
+/BatangChe
+/Gungsuh
+/GungsuhChe
+/Gulim
+/GulimChe
+/Dotum
+/DotumChe
+/New-Gulim
+
+/MHei-Medium-Acro
+/MSung-Light-Acro
+/STSong-Light-Acro
+/HeiseiKakuGo-W5-Acro
+/HeiseiMin-W3-Acro
+/HYGoThic-Medium-Acro
+/HYSMyeongJo-Medium-Acro
+"
+[ "$AlwaysEmbedCIDFontList" != "" ] || AlwaysEmbedCIDFontList="
+/SimSun-18030-Adobe-CNS1
+/NSimSun-18030-Adobe-CNS1
+/SimSun-18030
+/NSimSun-18030
+"
 # We have to include the options twice because -I only takes effect if it
 # appears before other options.
-exec gs $OPTIONS -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite "-sOutputFile=$outfile" $OPTIONS -c .setpdfwrite -f "$infile"
+exec gs $OPTIONS -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite "-sOutputFile=$outfile" $OPTIONS -c ".setpdfwrite <</NeverEmbed [$NeverEmbedFontList $NeverEmbedCIDFontList] /AlwaysEmbed [$AlwaysEmbedFontList $AlwaysEmbedCIDFontList]>> setdistillerparams" -f "$infile"