[Mew-Win32 01253] Re: mew-cite-color.el

[kaneko at example.com]

金子です.

Mon, 15 Mar 1999 12:18:00 +0900 ごろに,
[Mew-Win32 01250] mew-cite-color.el において,
Hideyuki SHIRAI (白井秀行) <shirai at example.com> さまっは書きました.

>message buffer を表示するときに、引用行をカラフルに色づけする
>emacs-lisp ですので、使ってやってみて下さい。
>
># 森本茂樹さんの 'message-cite-color.el' を元にして作りました。

 'message-cite-color.el'からどう変わったのでしょうか？

>~/.emacs に
>(eval-after-load "mew" '(require 'mew-cite-color))
>でカラフルな message を見ることが出来ます。

うまく行きませんでした．
バックトレースはこんな感じです．

Signalling: (void-function facep)
  (facep (quote mew-cite-color-comment-face))
  (if (facep (quote mew-cite-color-comment-face)) nil (make-face (quote mew-cite-color-comment-face)) (copy-face mew-cite-color-comment-face-type (quote mew-cite-color-comment-face)) (set-face-foreground (quote mew-cite-color-comment-face) mew-cite-color-comment-face-color))
  mew-cite-color-reset-cite-face()
  (save-restriction (widen) (mew-cite-color-reset-cite-face) (let (... ...) (if ... ...) (goto-char ...) (while ... ... ... ...)))
  (save-excursion (save-restriction (widen) (mew-cite-color-reset-cite-face) (let ... ... ... ...)))
  (if (or window-system mew-xemacs-p) (save-excursion (save-restriction ... ... ...)))
  mew-cite-color()
  run-hooks(mew-message-hook)
  mew-summary-display-message("+inbox" "1" "+inbox")
  mew-summary-show()
  call-interactively(mew-summary-show)

--
神戸NES クライアント・サーバシステム事業部 第一開発部
    金子 雄一知 (kaneko at example.com)