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)

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