svnno****@sourc*****
svnno****@sourc*****
2010年 12月 14日 (火) 23:15:10 JST
Revision: 1208
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1208
Author: kiri_feather
Date: 2010-12-14 23:15:10 +0900 (Tue, 14 Dec 2010)
Log Message:
-----------
関連発言タブの未読管理を初期値未読管理しないように
関連発言取得で、発言者・返信先ユーザーの直近10発言取得を無効に（悩ましい）
DeleteイベントのUnknownは、Tweenが保持していない発言に対してのものなので、無視するように（ログにも残さない）
Modified Paths:
--------------
trunk/Tween/Tween.vb
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-12-14 13:58:43 UTC (rev 1207)
+++ trunk/Tween/Tween.vb 2010-12-14 14:15:10 UTC (rev 1208)
@@ -9804,6 +9804,7 @@
Else
_statuses.AddTab(tName, TabUsageType.Related, Nothing)
End If
+ _statuses.GetTabByName(tName).UnreadManage = False
End If
Dim tb As TabClass = _statuses.GetTabByType(TabUsageType.Related)
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2010-12-14 13:58:43 UTC (rev 1207)
+++ trunk/Tween/Twitter.vb 2010-12-14 14:15:10 UTC (rev 1208)
@@ -1690,12 +1690,14 @@
Next
Next
- Dim rslt As String = Me.GetUserTimelineApi(read, 10, "", tab)
- If Not String.IsNullOrEmpty(rslt) Then Return rslt
- If Not String.IsNullOrEmpty(replyToUserName) Then
- rslt = Me.GetUserTimelineApi(read, 10, replyToUserName, tab)
- End If
- Return rslt
+ '発言者・返信先ユーザーの直近10発言取得
+ 'Dim rslt As String = Me.GetUserTimelineApi(read, 10, "", tab)
+ 'If Not String.IsNullOrEmpty(rslt) Then Return rslt
+ 'If Not String.IsNullOrEmpty(replyToUserName) Then
+ ' rslt = Me.GetUserTimelineApi(read, 10, replyToUserName, tab)
+ 'End If
+ 'Return rslt
+ Return ""
End Function
Private Function CreatePostsFromXml(ByVal content As String, ByVal gType As WORKERTYPE, ByVal tab As TabClass, ByVal read As Boolean, ByVal count As Integer, ByRef minimumId As Long) As String
@@ -2882,9 +2884,11 @@
End If
End If
If post Is Nothing Then
- evt.Event = "DELETE(UNKNOWN)"
- evt.Username = "--UNKNOWN--"
- evt.Target = "--UNKNOWN--"
+ 'evt.Event = "DELETE(UNKNOWN)"
+ 'evt.Username = "--UNKNOWN--"
+ 'evt.Target = "--UNKNOWN--"
+ '保持していない発言に対しての削除イベントは無視
+ Exit Sub
Else
If post.IsDm Then
evt.Event = "DELETE(DM)"