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

Navigator for 2ch

[288:(not 1) (2001/01/16(火) 19:18)]
>>280さん
ふと思ったんですが。
このやりとり、sage でやりません？
他のスレッドに迷惑かかるんで。

[289:280 (2001/01/16(火) 20:51)]
どうも

Signaling: (wrong-type-argument sequencep 288)
concat("Navigator for 2ch" " (" "276" "/" 288 ")")
(setq mode-line-buffer-identification (concat (cdr ...) " (" (cdr ...) "/" (length 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 ...) updated) (unless navi2ch-offline (setq updated ...)) (cond (first ...) (updated ...)) (or first (navi2ch-article-save-number)) (let (...) (erase-buffer) (setq list ... navi2ch-article-message-list list) (navi2ch-article-insert-messages list range)) (navi2ch-article-load-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-load-info) (when navi2ch-article-auto-range (if ... ... ...)) (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-load-info) (when navi2ch-article-auto-range ...) (navi2ch-article-sync force t)))
)
navi2ch-article-view-article(((nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((cache . cache) (subject . "Navigator for 2ch") (response . "276") (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 ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (save-excursion ...) (let ... ...)))
)
(if (and article (or ... ...)) (progn (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message "can't select this line!"))
)
(let ((article ...)) (if (and article ...) (progn ... ... ... ...) (message "can't select this line!")))
)
navi2ch-board-select-article(nil)
(if (and (navi2ch-article-current-buffer) (eq ... ...) (get-buffer-window ...)) (let (...) (select-window ...) (condition-case nil ... ...) (select-window win)) (navi2ch-board-select-article force))
)
(let ((article ...)) (if (and ... ... ...) (let ... ... ... ...) (navi2ch-board-select-article force)))
)
navi2ch-board-select-article-or-scroll(up nil)
navi2ch-board-select-article-or-scroll-up(nil)
call-interactively(navi2ch-board-select-article-or-scroll-up)

[290:280 (2001/01/16(火) 20:55)]
>>287
みて、思ったんですけど、bitmap.elスペックの絵文字ですよね。
ソレも取り入れてもらえると、嬉しかったりするのですが。

[291:名無しさん＠お腹いっぱい。 (2001/01/16(火) 22:20)]
bitmap.el ==> smily.elかな？

[292:(not 1) (2001/01/16(火) 23:17)]
>>289
これで直ったはず。

--- navi2ch-article.el.orig Tue Jan 16 23:13:10 2001
+++ navi2ch-article.el Tue Jan 16 23:13:26 2001
@@ -382,7 +382,7 @@
(setq mode-line-buffer-identification
(concat (cdr (assq 'subject article))
" (" (cdr (assq 'response article))
- "/" (length list) ")"))
+ "/" (number-to-string (length list)) ")"))
(force-mode-line-update t)
list))

[293:名無しさん＠Ｅｍａｃｓ (2001/01/16(火) 23:55)]
オフラインで起動
(C-uM-x navi2ch)

--- navi2ch.el.orig Sat Jan 13 12:59:54 2001
+++ navi2ch.el Mon Jan 15 07:47:27 2001
@@ -37,10 +37,11 @@
(defvar navi2ch-version "1.0")
(defvar navi2ch-init nil)

-(defun navi2ch ()
+(defun navi2ch (&optional arg)
"Navigator for 2ch for Emacs"
- (interactive)
+ (interactive "P")
(add-hook 'kill-emacs-hook 'navi2ch-save-status)
+ (if arg (setq navi2ch-offline (not navi2ch-offline)))
(setq navi2ch-init t)
(navi2ch-list)
(run-hooks 'navi2ch-hook))

正確には navi2ch-offline を反転して起動です
eval するの面倒だったもので…

[294:名無しさん＠お腹いっぱい。 (2001/01/17(水) 01:41)]
278 desu. article no saigo de error. mojibake gomen.

-- backtrace (trimmed) --
Signaling: (wrong-type-argument char-or-string-p nil)
navi2ch-article-insert-messages
(((1 (point . #<marker at 1 in *navi2ch article unix/976032951 0x8622f24>)
(name . "~~~~~~~~~~~~~") (mail . "")
(date . "2000/12/06(~) 01:15")
(data . "Windows~~Mac OS~~~~2ch~~~~~~~~~~~\nUNIX~~~~~~~~~~~~~~~~~\nhttp://zurubon.virtualave.net/source/113.jpg\n\nGTK--,wget~~~~~~~~~~~~~~~~~~~~~\nhttp://gtkmm.sourceforge.net/\n"))
(2 . "~~~~~~~~~~~~~,,2000/12/06(~) 01:19,~~~~~~~~~~ <br> ~~~~~,")
(3 . "~~~~~~~~~~~~~,,2000/12/06(~) 01:24, <br> ~~~~ <br> <br> unix~~~~~~~~~~~~~,")

[... thread data 4 to 49 ...]

(50 . "~~~~~~~~~~~~~,,2000/12/13(~) 22:35,~~~~~~~age,")
(51 . "~~~~~~~~~~~~~,sage,2000/12/14(~) 05:20,~~~,") ...)
(1 . 50))
navi2ch-article-sync(nil)
navi2ch-article-view-article(((nil) (name . "UNIX")
(uri . "http://cocoa.2ch.net/unix/") (id . "unix"))
((cache . view) (subject . "Navigator for 2ch")
(response . "276") (artid . "976032951")) nil)
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)
--

[295:280>292(not1) (2001/01/17(水) 07:21)]
OK
直りました。

[296:名無しさん＠ＸＥｍａｃｓ(280) (2001/01/17(水) 07:26)]
test

[297:奥さん、名無しです(280) (2001/01/17(水) 09:02)]
navi2ch-article-redraw-rangeで、wrong-type-argumentほげと、でますね。

(setq navi2ch-net-http-proxy "hehehe.net"
navi2ch-article-view-range '(5 . 100)
navi2ch-article-new-message-range '(5 . 100)
navi2ch-message-user-name "奥さん、名無しです"
)

あと、defaultで、こてハンになるんですね。

Signaling: (wrong-number-of-arguments #<compiled-function nil "...(73)" [next-command-event event inhibit-quit event-matches-key-specifier-p quit-char signal quit nil event-to-character button-release-event-p error "Key read has no ASCII equivalent %S" deallocate-event] 3 608629> 1)
read-char("input: ")
(setq n (read-char "input: "))
)
(let (n) (setq n (read-char "input: ")) (when (or ... ...) (error "%c is bad key" n)) (setq n (- n ?0)) (setq range (if ... nil ...)))
)
(let ((buf ...) (range navi2ch-article-view-range)) (save-excursion (set-buffer buf) (erase-buffer) (insert ...) (insert ...) (let ... ...)) (display-buffer buf) (let (n) (setq n ...) (when ... ...) (setq n ...) (setq range ...)) (kill-buffer buf) range)
)
(save-window-excursion (delete-other-windows) (let (... ...) (save-excursion ... ... ... ... ...) (display-buffer buf) (let ... ... ... ... ...) (kill-buffer buf) range))
)
navi2ch-article-select-view-range-subr()
(setq navi2ch-article-view-range (navi2ch-article-select-view-range-subr))
)
(lambda nil "表示する範囲を指定した後 redraw" (interactive) (setq navi2ch-article-view-range (navi2ch-article-select-view-range-subr)) (navi2ch-article-redraw))()
call-interactively(navi2ch-article-redraw-range)


===========================
*select view-range* buffer
first last
0: all range
1: 1 50
2: 50 50
3: 1 100
4: 100 100

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