>がある行に色つけるとか

2chのxyzzyスレに出てた話を適当に。メール読むときの呼び出すようにすればいい感じ。呼び出す方法は、ファイルを開く時のhookかmailを書くとのmodeのhookに割り当て、使いかたに合わせて決める。面倒じゃないならキー割り当てしてキー押しても色は付く。

(defun set-mail-quotaion-color(&optional (color 1))
  (interactive)
  (save-excursion
	(goto-char (point-min))
	(while (scan-buffer "^>.*" :regexp t :tail t)
	  (set-text-attribute (match-beginning 0)(match-end 0)
						  'quotation :foreground color))))

(defun add-mail-quotaion-color()
  (interactive)
  (add-hook '*post-command-hook* 'set-mail-quotaion-color))
(add-hook '*text-mode-hook* 'add-mail-quotaion-color)

　本当はコレをネタに。自分がどうやってちょっとしたのを書いているのかを書こうと思ったら、物凄く長くなってしまったというか、これ読んでも自分だったら意味が分かる自信がなかったので止めた。
■追記
　何かスレ色々でてるけど、こんな些細な奴でも作る人によって随分違うのがよく分かる。自分のもhookの奴まで付けてみたが、基本的にset-text-attributeよりcompile-regexp-keyword-listの方が速いので、あんまりオススメじゃない。