Navi2ch for Emacs (part 7)

>>381 さん、mami さん、どうもありがとうございます。
とりあえず、パターンを2つにすることで、ほとんど排除できました。
これで Linux 板を快適に見ることが出来ます。

本当にありがとうございました。

(defun my-navi2ch-article-filter-kunkun ()
(goto-char (point-min))
(while
(or
(re-search-forward "^.*<>.*hanajan.*<>.*<>.*<>" nil t)
(re-search-forward "^.*クンクン.*<>.*<>.*<>.*<>" nil t))
(delete-region (match-beginning 0) (match-end 0))
(insert-string "あぼぼーん<>あぼぼーん<>あぼぼーん<>あぼぼーん<>")))

(setq navi2ch-article-filter-list
'(my-navi2ch-article-filter-kunkun))