に書いておいた日記を出すのを忘れていたので、ちょっと出してみる。
(let ((fontsets `("fontset-default" ,(query-fontset "*-medium-r-*-*-16-*")))
      fontset)
  (while (setq fontset (car fontsets))
    (setq fontsets (cdr fontsets))
    (set-fontset-font fontset 'japanese-jisx0208  '(nil . "JISX0213.2004"))))
が一番楽みたい。JISX0213.2004 のフォントは今村さんのフォントで、ぼくの好きな jiskan16 を元に作られたなのでグリフも違和感無くてよいかも。
Subject: =?ISO-2022-JP?B?gaEgg0GDi4Nmg2KDToFFg2qDhYFbg1iDjINegVsA?= Date: Wed, 25 Apr 2007 16:13:34 -0700 MIME-Version: 1.0 Reply-To: info@xxxxxx.co.jp Content-Type: text/plain; charset="ISO-2022-JP" Content-Transfer-Encoding: 8bitで body も Subject もみんな shift_jis なんですけど。こういうの spam だとよくあるけど、なんだか頼りない会社だなぁ。