レス数が1000を超えています。残念ながら全部は表示しません。

navi2ch for emacs (part 4)

46 ：名無しさん＠お腹いっぱい。 ：01/12/31 21:20

書き込みに失敗した時に2ちゃんねるからのエラーメッセージを表示するpatch。

Index: navi2ch-net.el
@@ -385,7 +385,13 @@
(string-match "書きこみました。"
(decode-coding-string (navi2ch-net-get-content proc)
navi2ch-net-coding-system)))
-
+
+(defun navi2ch-net-send-message-error-string (proc)
+ (let ((str (decode-coding-string (navi2ch-net-get-content proc)
+ navi2ch-net-coding-system)))
+ (when (string-match "ＥＲＲＯＲ：\\([^<]+\\)" str)
+ (match-string 1 str))))
+
(defun navi2ch-net-send-message (from mail message subject board article)
"メッセージを送る。
送信成功なら t を返す"
@@ -425,7 +431,10 @@
(progn
(message "send message...succeed")
(delete-process proc) t)
- (message "send message...failed")
+ (let ((err (navi2ch-net-send-message-error-string proc)))
+ (if (stringp err)
+ (message "send message...failed: %s" err)
+ (message "send message...failed")))
(delete-process proc) nil))))

(defun navi2ch-net-download-logo (board)

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