svnno****@sourc*****
svnno****@sourc*****
2010年 12月 28日 (火) 04:57:29 JST
Revision: 1267
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1267
Author: anis774
Date: 2010-12-28 04:57:29 +0900 (Tue, 28 Dec 2010)
Log Message:
-----------
[で取得、追加されたInReplyToが未読になることがあるので、既読になるように修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-12-27 17:23:16 UTC (rev 1266)
+++ trunk/Tween/Tween.vb 2010-12-27 19:57:29 UTC (rev 1267)
@@ -5524,6 +5524,7 @@
Dim post As PostClass = Nothing
Dim r As String = tw.GetStatusApi(False, _curPost.InReplyToId, post)
If r = "" AndAlso post IsNot Nothing Then
+ post.IsRead = True
_statuses.AddPost(post)
_statuses.DistributePosts()
_statuses.SubmitUpdate(Nothing, Nothing, Nothing, False)