3 (defvar navi2ch-article-parse-timer-id nil)
4 (defvar navi2ch-article-parse-timer-interval 3)
5 (defun navi2ch-article-parse-timer-setup ()
6 (when navi2ch-article-parse-timer-id
7 (cancel-timer navi2ch-article-parse-timer-id))
8 (setq navi2ch-article-parse-timer-id
9 (run-with-idle-timer navi2ch-article-parse-timer-interval
10 t 'navi2ch-article-parse-messages-list)))
11 (defun navi2ch-article-parse-messages-list ()
12 (with-current-buffer (navi2ch-article-current-buffer)
14 (dolist (x navi2ch-article-message-list)
15 (when (stringp (cdr x))
16 (setcdr x (cons (cons 'point nil)
17 (navi2ch-article-parse-message (cdr x)))))
18 (when (input-pending-p) (throw 'loop nil)))
19 (cancel-timer navi2ch-article-parse-timer-id)
20 (setq navi2ch-article-parse-timer-id nil))))
21 (add-hook 'navi2ch-article-mode-hook 'navi2ch-article-parse-timer-setup)
23 (provide 'navi2ch-idle-parse)