Navigator for 2ch

# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
navi2ch-mona-arrange-message()
run-hooks(navi2ch-mona-arrange-message)
# (unwind-protect ...)
(save-restriction (narrow-to-region beg end) (let (...) (when ... ... ...)) (run-hooks (quote navi2ch-article-arrange-message-hook)))
)
# (unwind-protect ...)
(save-excursion (save-restriction (narrow-to-region beg end) (let ... ...) (run-hooks ...)))
)
# bind (end beg)
navi2ch-article-arrange-message(47 103)
# bind (p)
(let ((p ...)) (insert (cdr ...) "\n") (navi2ch-article-set-link-property p (point)) (navi2ch-article-arrange-message p (point)))
)
# bind (alist num)
navi2ch-article-insert-message(1 ((subject . "*BSDニュース＠２ｃｈ") (data . "皆さんが見かけたBSDにまつわるニュース、記事、話題など、お気軽にお寄せください。\nリリース速報などもどうぞ。") (date . "2000/06/24(土) 22:37") (mail . "") (name . "名無しさん")))
(progn (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
(if (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (progn (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(when (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
# bind (alist num)
(let ((num ...) (alist ...)) (when (cond ... ... ...) (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(while --dolist-temp--100928 (setq x (car --dolist-temp--100928)) (let (... ...) (when ... ... ... ...)) (setq --dolist-temp--100928 (cdr --dolist-temp--100928)))
)
# bind (x --dolist-temp--100928)
(let ((--dolist-temp--100928 list) x) (while --dolist-temp--100928 (setq x ...) (let ... ...) (setq --dolist-temp--100928 ...)) nil)
)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(dolist (x list) (let (... ...) (when ... ... ... ...)))
)
# bind (imp hide len)
(let ((len ...) (hide ...) (imp ...)) (dolist (x list) (let ... ...)) (message "inserting current messages...done"))
)
# bind (range list)
navi2ch-article-insert-messages(((1

# bind (buffer-read-only)
(let ((buffer-read-only nil)) (erase-buffer) (navi2ch-article-insert-messages list range))
)
(progn (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
(if (or (and first ...) state) (progn (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(when (or (and first ...) state) (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
# bind (state old-size file url navi2ch-net-force-update board article range list)
(let* ((list navi2ch-article-message-list) (range navi2ch-article-view-range) (article navi2ch-article-current-article) (board navi2ch-article-current-board) (navi2ch-net-force-update ...) (url ...) (file ...) (old-size ...) state) (when first (setq article ...)) (let (...) (setq article ... navi2ch-article-current-article article state ...)) (when (or ... state) (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(progn (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
(if (not navi2ch-article-from-file-p) (progn (let* ... ... ... ...)))
)
(when (not navi2ch-article-from-file-p) (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
# bind (first force)
navi2ch-article-sync(nil first)
(let ((state ...)) (if state (progn ... t) nil))

(if (get-buffer buf-name) (progn (switch-to-buffer buf-name) (navi2ch-article-sync force)) (switch-to-buffer (get-buffer-create buf-name)) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range (if ... ... ...)) (let (...) (if state ... nil)))
)
# bind (buf-name)
(let ((buf-name ...)) (if (get-buffer buf-name) (progn ... ...) (switch-to-buffer ...) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range ...) (let ... ...)))
)
# bind (number force article board)
navi2ch-article-view-article(((time . "Mon, 07 May 2001 01:20:20 GMT") (nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "ブラウザなんとかしろ。") (response . "126") (artid . "969539141")) nil)
(setq state (navi2ch-article-view-article board article force))
)
# bind (state)
(let (state) (setq state (navi2ch-article-view-article board article force)) (save-excursion (set-buffer buf) (let ... ...)))
)
(progn (navi2ch-history-add board article) (dolist (x ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (setq state ...) (save-excursion ... ...)))
)
(if article (progn (navi2ch-history-add board article) (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message "can't select this line!"))
)
# bind (buf board article item)
(let* ((item ...) (article ...) (board ...) (buf ...)) (if article (progn ... ... ... ... ...) (message "can't select this line!")))
)
# bind (force)
navi2ch-bm-select-article(nil)
(if (and (navi2ch-article-current-buffer) (string= ... ...) (get-buffer-window ...)) (let (...) (select-window ...) (condition-case nil ... ...) (select-window win)) (navi2ch-bm-select-article force))
)
# bind (article)
(let ((article ...)) (if (and ... ... ...) (let ... ... ... ...) (navi2ch-bm-select-article force)))
)
# bind (force way)
navi2ch-bm-select-article-or-scroll(up nil)
# bind (force)
navi2ch-bm-select-article-or-scroll-up(nil)
# bind (command-debug-status)
call-interactively(navi2ch-bm-select-article-or-scroll-up)
# (condition-case ... . error)
# (catch top-level ...)