投稿失敗時でも返信先情報をクリアしてしまうバグ修正

投稿で遅延または10ポスト内重複制限になり「OK:Delaying?」になった際、メッセージボックスを表示するよう変更

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@37 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index de5470c..84e1d39 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -4,6 +4,8 @@
  * 短縮URL展開でgoo.glに対応
  * Webモードで、20件目のつぶやきにゴミがついているためのprotect誤判定するなどのバグ修正
  * WebモードのFollower取得で、全件取得に失敗した場合は、以前取得したキャッシュに追加するよう変更
+ * 投稿失敗時でも返信先情報をクリアしてしまうバグ修正
+ * 投稿で遅延または10ポスト内重複制限になり「OK:Delaying?」になった際、メッセージボックスを表示するよう変更
 ==== Ver 0.8.1.0(2009/12/14)
  * 細かい不具合対応
  * 公式RT発言を振り分けする際、RTした人を対象にするよう変更

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 1493f98..f8f66bb 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1802,8 +1802,10 @@ Public Class TweenMain
                 '    If ret = "" OrElse ret = "OK:Delaying?" OrElse ret.StartsWith("Outputz:") Then Exit For
                 'Next
                 ret = Twitter.PostStatus(args.status, _reply_to_id)
-                _reply_to_id = 0
-                _reply_to_name = ""
+                If ret = "" OrElse ret.StartsWith("Outputz") OrElse ret.StartsWith("OK:") Then
+                    _reply_to_id = 0
+                    _reply_to_name = ""
+                End If
                 bw.ReportProgress(300)
             Case WORKERTYPE.Retweet
                 bw.ReportProgress(200)
@@ -2124,6 +2126,10 @@ Public Class TweenMain
 
                     If rslt.retMsg.Length > 0 Then StatusLabel.Text = rslt.retMsg 'Outputz失敗時
 
+                    If rslt.retMsg = "OK:Delaying?" Then
+                        MessageBox.Show(rslt.retMsg, "Delay or DuplicationLimit", MessageBoxButtons.OK, MessageBoxIcon.Information)
+                    End If
+
                     StatusText.Text = ""
                     _history.Add("")
                     _hisIdx = _history.Count - 1