svnno****@sourc*****
svnno****@sourc*****
2010年 11月 30日 (火) 19:12:13 JST
Revision: 1142
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1142
Author: kiri_feather
Date: 2010-11-30 19:12:13 +0900 (Tue, 30 Nov 2010)
Log Message:
-----------
新着時未読クリアが動作するように
Modified Paths:
--------------
branches/UserStream/Tween/Tween.vb
-------------- next part --------------
Modified: branches/UserStream/Tween/Tween.vb
===================================================================
--- branches/UserStream/Tween/Tween.vb 2010-11-30 10:02:01 UTC (rev 1141)
+++ branches/UserStream/Tween/Tween.vb 2010-11-30 10:12:13 UTC (rev 1142)
@@ -9626,6 +9626,10 @@
'If before.Subtract(Now).Seconds > -5 Then Exit Sub
'before = Now
+ If SettingDialog.ReadOldPosts Then
+ _statuses.SetRead() '新着時未読クリア
+ End If
+
Dim rsltAddCount As Integer = _statuses.DistributePosts()
RefreshTimeline()
SyncLock _syncObject