svnno****@sourc*****
svnno****@sourc*****
2011年 1月 2日 (日) 09:00:14 JST
Revision: 1304
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1304
Author: anis774
Date: 2011-01-02 09:00:13 +0900 (Sun, 02 Jan 2011)
Log Message:
-----------
rev1301に戻し
Revision Links:
--------------
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1301
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-01-01 06:38:10 UTC (rev 1303)
+++ trunk/Tween/Twitter.vb 2011-01-02 00:00:13 UTC (rev 1304)
@@ -1545,17 +1545,7 @@
post.IsRead = read
If post.IsMe AndAlso Not read AndAlso _readOwnPost Then post.IsRead = True
- 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)
- post.IsRead = posts.Any()
- End If
-
If tab IsNot Nothing Then post.RelTabName = tab.TabName
'非同期アイコン取得＆StatusDictionaryに追加
TabInformations.GetInstance.AddPost(post)