>>124 の続き

(defun my-navi2ch-headline-check ()
(sit-for 0)
(navi2ch-bm-mark-by-query "^[ ]*[0-9]+[ ][ %][^CU]")
(sit-for 0)
(navi2ch-bm-fetch-mark-article)
(message
(concat "Finishing checking at "
(format-time-string "%p%l:%M:%S" (current-time))
". Re-checking after " sleeping-minute " minute(s) ..." ))
(redraw-frame (selected-frame))
(sit-for 0)
(sleep-for (* sleeping-minute 60))
(navi2ch-board-sync))

;; 次に続く...