Navi2ch for Emacs (Part 20)

[0001 名無しさん＠お腹いっぱい。 2010/02/06(土) 08:37:55]

Emacsen で動く 2ch 専用ブラウザ、Navi2ch のスレッド Part 20 です。

Navi2ch Project Home Page
http://navi2ch.sourceforge.net/

*info* (navi2ch)Top
(info "navi2ch")

開発版
% cvs -z3 -d:pserver:[e-mail]:/cvsroot/navi2ch co navi2ch

過去ログ
>> ~/.navi2ch/etc.txt
> navi2ch
> http://navi2ch.sourceforge.net/log/
> navi2ch

前スレ
Navi2ch for Emacs (Part 19)
http://pc12.2ch.net/test/read.cgi/unix/1221368890/

[0259 254 2010/12/10(金) 22:16:47]

navi2ch-2ch-send-message(#("254" 0 3 (fontified t)) #("sage" 0 4 (fontified t)) ">>256 以下、長いので省略" nil "unix" "1265413075" "1291968272" ((name . "UNIX") (bbstype . unknown) (uri . "http://hibari.2ch.net/unix/") (id . "unix"))
((moved) (last-num . 257) (old-res . 253) (response . "253") (nil) (important) (hide) (time . "Tue, 30 Nov 2010 17:54:58 GMT") (name . #("254" 0 3 ...)) (number . 257) (subject . "Navi2ch for Emacs (Part 20)") (artid . "1265413075")) nil)

[0260 254 2010/12/10(金) 22:21:13]

byte-code("バイトコードなので省略" [tries i --cl-dotimes-temp-- send from mail 0
message retry ((byte-code "バイトコードなので省略" [temp-buffer proc board
extract-post post-data generate-new-buffer " *temp*" ... decode-coding-string
navi2ch-net-get-content navi2ch-board-get-coding-system navi2ch-replace-html-tag-with-buffer
re-search-forward "[ ]*\n\\([ ]*\n\\)*" nil t replace-match "\n"
delete-other-windows switch-to-buffer y-or-n-p "Retry? " throw --cl-block-nil--] 4))
sit-for "re-send message..." "succeed" throw --cl-block-nil-- navi2ch-multibbs-send-message-error-string "failed: %s"
"failed" navi2ch-message-samba24-modify-by-error nil subject bbs key time board article post-data proc message-str success-p
result navi2ch-message-retry-wait-time err navi2ch-message-samba24-show] 12)
navi2ch-multibbs-send-message(#("254" 0 3 (fontified t))
#("sage" 0 4 (fontified t)) ">>256 以下、長いので省略") (artid . \"1277917250\")) nil)" nil ((name . "UNIX") (bbstype . unknown)
(uri . "http://hibari.2ch.net/unix/") (id . "unix")) ((moved) (last-num . 257) (old-res . 253) (response . "253") (nil) (important) (hide)
(time . "Tue, 30 Nov 2010 17:54:58 GMT") (name . #("254" 0 3 ...)) (number . 257) (subject . "Navi2ch for Emacs (Part 20)") (artid . "1265413075")))

navi2ch-message-send-message()
call-interactively(navi2ch-message-send-message)

以上です。改行が妙ですみません。