erc以外のバッファに対してkill-bufferする関数

タイトルの通りです。全てを消し去りたいときにどうぞ!!

(defun my-kill-buffers ()
  (interactive)
  (let ((buffers (loop for bn in (mapcar 'buffer-name (buffer-list))
                       when (not (or (string-match (rx bol (+ space)) bn)
                                     (string-match (rx bol "#") bn)))
                       collect (get-buffer bn))))
    (mapcar 'kill-buffer buffers)))