[Mew-Win32 01219] Re: 引用行の色の変更について

[小関 吉則 (KOSEKI Yoshinori)]

>>>>> In [Mew-Win32 : No.01218] 
>>>>> “鈴木” = Satomi Suzuki <pan at example.com>さん曰く
鈴木> | mew でメールを読むときに引用部分に色をつける elisp です。
鈴木> | 引用部分の判定に xcite.el で定義されている xcite-cite-regexp を
鈴木> | 使用しているので xcite もインストールしておいてください。

鈴木> これですね(^^) でも、xcite って何者?(;^_^A 状態なので
鈴木> もう少し勉強してからトライしてみます。

私は xcite-cite-regexp ではなく Gnus の gnus-cite.el の
gnus-cite-prefix-regexp を頂戴しました。

(defvar message-cite-prefix-regexp
    "^[]>|:}+ ]*[]>|:}+]\\(.*>\\)?\\|^.*>"
  "Regexp matching the longest possible citation prefix on a line.")

(defun message-cite-color ()
  (reset-cite-to-face)
  (save-excursion
    (setq buffer-read-only nil)
    (goto-char (point-min))
    (while (< (point) (point-max))
      (beginning-of-line)
      ;;(if (looking-at xcite-cite-regexp)
      (if (looking-at message-cite-prefix-regexp)
  ...

こんな感じにしました。(diffじゃないけど、ごめんね。)


なお、xcite.el は 広瀬さんちにあります。
http://www.comp.ae.keio.ac.jp/~yuuji/software/
--
こせき @ Emacs のページ作成中
http://www.NetLaputa.ne.jp/~kose/Emacs/
kose at example.com