レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 7)

386 ：379 ：02/10/09 08:35

>>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))

read.cgi ver5.26+ (01/10/21-)