[Mew-Win32 00296] x-face-mule (Re: C-uZ)

[小関 吉則 (KOSEKI Yoshinori)]

白井> ## kiki&jijiもsmily-muleも表示できるけど、まだ、MeadowでX-Faceが
白井> ## 出せない ;_;

;;; そういえば、まだ書いていなかった...

Meadow + x-face-mule.el でinline表示する方法。

0. X-Face のサンプル

http://www.jpl.org/elips/x-faces.gif

1. x-face-mule.el

http://www.jpl.org/elips/
から入手する。

2. bitmap.el

ftp://ftp.jaist.ac.jp/pub/GNU/elisp/bitmap-mule/bitmap-mule-7.18.tar.gz
から入手する。
ただしここに含まれるx-face-mule.elは使わないで 1. の
x-face-mule.el と置き換える。

3. etl8x16-bitmap.bdf

ftp://ftp.jaist.ac.jp/pub/GNU/elisp/bitmap-mule/bitmap-mule-7.18.tar.gz
から入手する。

4. fontの設定

(setq bdf-font-directory "h:/Meadow/bdf/")

(require 'bitmap)
(let ((font "Bitmap-16"))
  (w32-add-font font
                '((default-ascent . 0)
                  (relative-compose . 0)
                  (encoding-type . 0)
                  (overhang . 0)
                  (base . 14)
                  (height . 16)
                  (width . 8)
                  (encoding-type . 0)))
  (w32-change-font-logfont
   font 0 (list 'bdf-font 
             (concat bdf-font-directory "etl8x16-bitmap.bdf")))
  (set-fontset-font "your fontset name" 'bitmap font))

6. x-face-mule.el の設定

(if window-system
    (progn
      ;; 表示位置
      (setq x-face-mule:highlight-x-face-position 'x-face)
      ;;(setq x-face-mule:highlight-x-face-type 'xmas)

      ;; for Mew
      (setq mew-use-highlight-x-face t)
      (setq mew-use-highlight-x-face-function
            (function
             (lambda (beg end)
               (x-face-mule:x-face-decode-message-header beg end))))))
;;
(add-hook 'mime-view-content-header-filter-hook
          'x-face-decode-message-header t)
(add-hook 'mime-view-content-header-filter-hook
          'x-face-mule:gnus-art-mime-highlight-headers t)
;;
(require 'x-face-mule)

こんなもんでどうでしょうか?

....白井さんに添削してもらって自分のWebへ書こうかな、ってわけ。^^)
--
こせき @ I love GNU, Mule and Meadowのページ作成中
http://www.NetLaputa.ne.jp/~kose/
kose at example.com