kill-all-navi2ch (emacsのバッファが２chのスレでいっぱいだよー という人のために)

(defun kill-all-navi2ch ()

  (interactive)

  (let ((b-lis (buffer-list)))

    (while b-lis

      (let ((buf-name (buffer-name (car b-lis))))

        ;;もしnavie 2ch のバッファなら

	(if (eq 0 (string-match "\*navi2ch" buf-name)) 

	    (kill-buffer (get-buffer buf-name)))

	(setq b-lis (cdr b-lis))

	))))

我が家のEmacs本
やさしいEmacs‐Lisp講座

GNU Emacs拡張ガイド—Emacs Lispプログラミング