[Mew-dist 06688] x-face on Mew1.93+Mule 2.3

[Takano Yuji]

たかのです。こんばんは。

＃x-face の事を調べているうちに「本当はこの ML に出したらダメな
  のかな？」と思いつつもこの ML に出してしまいます。ごめんなさい。

  と、言う事で、

X-Mailer: Mew version 1.93 on Emacs 19.28 / Mule 2.3 (SUETSUMUHANA)

  の時に x-face を使う方法を教えて下さい。実は同じ環境で、mew の
バージョンが 1.92 の頃は使えていました。多分 1.93b33 の頃に大幅
にヘッダの見直しが入った時に動かなくなった様な気がします。

  現在、あっちゃこっちゃの x-face の web を調べた結果、
x-face-1.3.3+x-face-mule-0.24+compface で動くのではと思いバージョ
ンを上げました。/usr/local/lib/mule/site-lisp には以下のファイル
を入れています。

---
x-face-mule.el
x-face-mule.elc
x-face.el
x-face.elc
---

  一応、M-x x-face-insert は出来る様になったのですが、
x-face-view すると以下のメッセージが mule の一番下に出てしまいま
す。

---
Invalid Function: (macro . #[(fld-msg) "\300\301^j\303BBD\207" [mew-cache-buffer-get assoc fld-msg (mew-cache)] 4 "Return value asscosiated with key."])
---

＃このメールに x-face を埋め込んでみました。正しく表示されるでしょ
  うか？

  添付が、私の .emacs で設定している x-face の部分の抜粋です。
x-face-view する為にはどうしたら良いでしょうか？？教えて下さい。
＃この ML にふさわしく無い様でしたら返事は個人メールで結構です。

  尚、gnus では、tm を使っているからなのか、x-face-view は正しく
表示出来ています。

  なんか、mew とはそれる話しかもしれませんがよろしくお願いします。

-------------
たかの ゆーじ  e-mail : takachan at example.com
             HomePage : http://www.running-dog.net/





---~/.emacs
;
;  X-face の設定
;
;(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))))
(require 'x-face-mule)

(autoload 'x-face-encode "x-face"  "Generate X-Face string(s) from xbm file." t)
(autoload 'x-face-insert "x-face"  "Insert X-Face fields." t)
(autoload 'x-face-save "x-face"    "Save X-Face fields to files." t)
(autoload 'x-face-view "x-face"    "View X-Face fields." t)
(autoload 'x-face-ascii-view "x-face"  "View X-Face fields as ascii pictures." t)

; イメージファイルを通常置いておくディレクトリの指定です。
(setq x-face-image-file-directory "~/bm/x-faces")
(setq x-face-image-file-directory-for-save "~/bm/x-faces")

; 主に自分の X-Face 用に使う xbm ファイルの名前を指定します。
;(setq x-face-default-xbm-file "takano.xbm")

;  自動的に写真を付ける設定
(setq x-face-insert-interactive t)

; 顔写真を非同期に起動します。
(setq x-face-view-asynchronous nil)

; 外部 viewer を起動して表示するファイルを読み込むまでの最大時間を秒数
; で設定します。x-face.el から外部 viewer を起動した後でこの時間が経過
; するとファイルを消します。
(setq x-face-viewer-startup-time 10)

;
; .emacs で X-face encode データを隠す設定
(defvar mew-invisible-regexp-list
  '("^X-Face: *\\(.*\\(\n[ \t].*\\)*\\)\n"
    "^X-PGP-Sig: *\\(\\(.+\n\t\\)+.+\n\t+=[0-9a-zA-Z]+$\\)" )
  "*List that contains regexps to be invisible in the message buffer." )

(defun mew-set-invisible ()
  (save-excursion
    (let ((invisible-regexp-list mew-invisible-regexp-list)
          (case-fold-search t)
          regexp header-end )
      (goto-char (point-min))
      (if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
          (setq header-end (point)))
      (while invisible-regexp-list
        (goto-char (point-min))
        (while (re-search-forward (car invisible-regexp-list) header-end t)
          (put-text-property (match-beginning 1) (match-end 1) 'invisible t) )
        (setq invisible-regexp-list (cdr invisible-regexp-list)) ))))

(add-hook 'mew-message-hook 'mew-set-invisible)
---