自分のinit.elにはこんなん書いてある。レスの場所でIを押せば即NG処理

(defun navi2ch-article-add-message-filter-by-id-now ()
"現在のレスのIDを即座にhide。適用範囲はboard-local。"
(interactive)
(let (match
(id (navi2ch-article-get-current-id)))
(setq match (list id 'E))
(setq match (plist-put
match
:board-id
(cdr (assq 'id navi2ch-article-current-board))))
(setq navi2ch-article-message-filter-by-id-alist
(cons (cons match 'hide)
(delq (assoc match navi2ch-article-message-filter-by-id-alist)
navi2ch-article-message-filter-by-id-alist)))
(navi2ch-auto-modify-variables (list 'navi2ch-article-message-filter-by-id-alist))
(navi2ch-article-toggle-message-filter t)
(message "ID:%s filtered" id)))

(define-key navi2ch-article-mode-map "I" 'navi2ch-article-add-message-filter-by-id-now)