>>525
> スペース読み便利
こんな感じで変数設定だけでいけそうです。

(defun my-navi2ch-article-through-ask-function (num title)
(if (save-current-buffer
(set-buffer navi2ch-board-buffer-name)
(when (eq (forward-line num) 0)
(navi2ch-bm-goto-state-column)
(not (looking-at "U"))))
'quit
(navi2ch-article-through-ask-y-or-n-p num title)))
(setq navi2ch-article-through-ask-function 'my-navi2ch-article-through-ask-function)