未読管理しているタブにある既読のポストと同一のポストが他のタブに追加される際に、そのポストも既読にするように変更

正しく動作しているか、パフォーマンスに問題がないかの検証をお願いします。

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

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 982b5fb..4bdd716 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -1545,6 +1545,16 @@ Public Class Twitter
 
             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 posts.Any() Then
+                post.IsRead = True
+            End If
 
             If tab IsNot Nothing Then post.RelTabName = tab.TabName
             '非同期アイコン取得＆StatusDictionaryに追加