レス数が950を超えています。1000を超えると表示できなくなるよ。

Navigator for 2ch

264 ：010108.tar.gz on xemacs ：2001/01/09(火) 11:07

Signaling: (wrong-type-argument stringp nil)
string-match(" <br> " nil nil)
#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-string "\\(,\\|<> *\\)" nil list2 strs name mail date 2 data 3 str case-fold-search start string-match " <br> " replace-match "\n" navi2ch-article-parse-field-list elt --dolist-temp--20500 navi2ch-replace-html-tag] 6>((281 . ""))
mapcar(#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-stri
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)

265 ：elc消してみた ：2001/01/09(火) 15:21

一部省略
Signaling: (wrong-type-argument stringp nil)
string-match(" <br> " nil nil)
(setq start (string-match " <br> " str start))
)
(while (setq start (string-match " <br> " str start)) (setq str (replace-match "\n" nil nil str)))
)
(let (start) (while (setq start ...) (setq str ...)))
)
(let ((case-fold-search nil) str) (setq str (cdr ...)) (let (start) (while ... ...)) (setcdr (assq ... list2) str) (dolist (elt navi2ch-article-parse-field-list) (setq str ...) (setq str ...) (setcdr ... str)))
)
(let ((strs ...) list2) (setq list2 (list ... ... ... ...)) (let (... str) (setq str ...) (let ... ...) (setcdr ... str) (dolist ... ... ... ...)) (cons (car x) list2))
)
(if (and (stringp ...) (navi2ch-article-inside-range-p ... range ...)) (let (... list2) (setq list2 ...) (let ... ... ... ... ...) (cons ... list2)) x)
)
(lambda (x) (if (and ... ...) (let ... ... ... ...) x))((265 . ""))
(setq message-list (mapcar (lambda ... ...) list))
)
(let ((first ...) (last ...) message-list) (message "parsing current messages...") (setq message-list (mapcar ... list)) (message "parsing current messages...done") message-list)
)
navi2ch-article-parse-message(((1 . "名無しさん＠お腹いっぱい。,,2000/12/06(水) 01:15,WindowsとかMac OSとかには2ch用専用アプリがあるけど <br>
(setq list (navi2ch-article-parse-message list range) navi2ch-article-message-list list)
)
(let ((buffer-read-only nil)) (erase-buffer) (setq list (navi2ch-article-parse-message list range) navi2ch-article-message-list list) (navi2ch-article-insert-messages list range))
)
(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 ...) updated) (unless navi2ch-offline (setq updated ...)) (cond (first ...) (updated ... ...)) (let (...) (erase-buffer) (setq list ... navi2ch-article-message-list list) (navi2ch-article-insert-messages list range)) (navi2ch-article-open-number) (setq mode-line-buffer-identification (concat ... " (" ... "/" ... ")")) (force-mode-line-update t) list)
)
navi2ch-article-sync(nil t)
(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-sync force t))
)
(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-sync force t)))
)
navi2ch-article-view-article(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "Navigator for 2ch") (response . "257") (artid . "976032951")) nil)
(setq state (navi2ch-article-view-article navi2ch-board-current-board article force))
)
(save-excursion (setq state (navi2ch-article-view-article navi2ch-board-current-board article force)))
)
(let (state) (save-excursion (setq state ...)) (let (...) (when state ...)))
)
(progn (dolist (x ...) (delete-windows-on x)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (save-excursion ...) (let ... ...)))
)
(if article (progn (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message ("can't select this line!")))
)
(let ((article ...)) (if article (progn ... ... ... ...) (message ...)))
)
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)

read.cgi ver5.26+ (01/10/21-)