[Mew-dist 08442] Re: X-Face problem on mew-1.94b17

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

# 私も x-face-mule だめです。;_;

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 08440] Re: X-Face problem on mew-1.94b17
Message-ID: <19990402155525N.kazu at example.com>
Date: Fri, 2 Apr 1999 15:55:04 +0900

kazu> > 問題のない事例があるので，何かまずい設定をしてしまっているということ
kazu> > だと思うのですが，見直すべきところはありますでしょうか？
kazu> 
kazu> Emacs 20.2 はサポートしていません。
kazu> Emacs 20.3.x はまだまだバグが多いのではないかと思います。

今の手持ちは Emacs20.2 と 20.3.92 だからなぁ……

kazu> Emacs 20.3 で確かめてもらえますか？ 再現するようなら真剣に取り組みます。

20.3 は大昔に消しちゃったので、昔ながらの以下の方法でしのいでい
ます。御参考までに > 向内 さん

(defvar mew-summary-display-message-filter-hook nil)

(defun mew-summary-display-message-filter ()
  (save-excursion
    (set-buffer (mew-buffer-message))
    (goto-char (point-min))
    (let ((buffer-read-only nil))
      (run-hooks 'mew-summary-display-message-filter-hook)
      )))

(add-hook 'mew-message-hook 'mew-summary-display-message-filter)

(setq mew-use-highlight-x-face t)
(setq x-face-mule-highlight-x-face-position 'from)
(setq x-face-mule-highlight-x-face-style 'default)
(setq mew-use-highlight-x-face-function nil)

(add-hook 'mew-summary-display-message-filter-hook 'mew-x-face-mule-view)

(defun mew-x-face-mule-view ()
  (if (not mew-use-highlight-x-face)
      ()
    (goto-char (point-min))
    (if (and (re-search-forward "\n\n" nil t)
	     (re-search-backward "^X-Face:" nil t))
	(x-face-mule-x-face-decode-message-header))))