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

Navi2ch for Emacs (part 7)

382 ：mami ：02/10/09 01:20

>>379
こんな感じでしょうか。

(defun my-navi2ch-article-filter-kunkun ()
(goto-char (point-min))
(forward-line) ; スレタイが消えそうなので >>1 は除外。
(while (re-search-forward "^[^\(<>\)]*クンクン"
nil t)
(delete-region (progn (beginning-of-line) (point))
(progn (end-of-line) (point)))
(insert-string "あぼぼーん<>あぼぼーん<>あぼぼーん<>あぼぼーん<>"))
(goto-char (point-min)))

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

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