svnno****@sourc*****
svnno****@sourc*****
2011年 1月 1日 (土) 15:38:10 JST
Revision: 1303
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1303
Author: anis774
Date: 2011-01-01 15:38:10 +0900 (Sat, 01 Jan 2011)
Log Message:
-----------
r1302で追加したロジックに枝切りを追加
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-01-01 06:22:03 UTC (rev 1302)
+++ trunk/Tween/Twitter.vb 2011-01-01 06:38:10 UTC (rev 1303)
@@ -1545,15 +1545,15 @@
post.IsRead = read
If post.IsMe AndAlso Not read AndAlso _readOwnPost Then post.IsRead = True
- Dim posts = From tab_ In TabInformations.GetInstance().Tabs
- Where tab_.Value.UnreadManage
- From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass))
- Where post_.Value.Id = post.Id
- Where post_.Value.IsRead
- Where tab_.Value.Contains(post_.Value.Id)
+ If Not post.IsRead Then
+ Dim posts = From tab_ In TabInformations.GetInstance().Tabs
+ Where tab_.Value.UnreadManage
+ From post_ In DirectCast(IIf(tab_.Value.IsInnerStorageTabType, tab_.Value.Posts, TabInformations.GetInstance().Posts), Dictionary(Of Long, PostClass))
+ Where post_.Value.Id = post.Id
+ Where post_.Value.IsRead
+ Where tab_.Value.Contains(post_.Value.Id)
- If posts.Any() Then
- post.IsRead = True
+ post.IsRead = posts.Any()
End If
If tab IsNot Nothing Then post.RelTabName = tab.TabName