svnno****@sourc*****
svnno****@sourc*****
2011年 5月 10日 (火) 13:28:17 JST
Revision: 1526 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1526 Author: kiri_feather Date: 2011-05-10 13:28:17 +0900 (Tue, 10 May 2011) Log Message: ----------- DM削除時に(DELETED)で残ってしまうバグ修正 Modified Paths: -------------- trunk/Tween/StatusDictionary.vb -------------- next part -------------- Modified: trunk/Tween/StatusDictionary.vb =================================================================== --- trunk/Tween/StatusDictionary.vb 2011-05-06 09:40:21 UTC (rev 1525) +++ trunk/Tween/StatusDictionary.vb 2011-05-10 04:28:17 UTC (rev 1526) @@ -687,32 +687,32 @@ Public Sub RemovePost(ByVal Id As Long) SyncLock LockObj Dim post As PostClass = Nothing - If _statuses.ContainsKey(Id) Then - post = _statuses(Id) - '各タブから該当ID削除 - For Each key As String In _tabs.Keys - Dim tab As TabClass = _tabs(key) - If tab.Contains(Id) Then - If Not tab.IsInnerStorageTabType Then - If tab.UnreadManage AndAlso Not post.IsRead Then '未読管理 - SyncLock LockUnread - tab.UnreadCount -= 1 - Me.SetNextUnreadId(Id, tab) - End SyncLock - End If - Else '未読数がずれる可能性があるためtab.Postsの未読も確認する - If tab.UnreadManage AndAlso Not tab.Posts(Id).IsRead Then '未読管理 - SyncLock LockUnread - tab.UnreadCount -= 1 - Me.SetNextUnreadId(Id, tab) - End SyncLock - End If + 'If _statuses.ContainsKey(Id) Then + '各タブから該当ID削除 + For Each key As String In _tabs.Keys + Dim tab As TabClass = _tabs(key) + If tab.Contains(Id) Then + If Not tab.IsInnerStorageTabType Then + post = _statuses(Id) + If tab.UnreadManage AndAlso Not post.IsRead Then '未読管理 + SyncLock LockUnread + tab.UnreadCount -= 1 + Me.SetNextUnreadId(Id, tab) + End SyncLock End If - tab.Remove(Id) + Else '未読数がずれる可能性があるためtab.Postsの未読も確認する + If tab.UnreadManage AndAlso Not tab.Posts(Id).IsRead Then '未読管理 + SyncLock LockUnread + tab.UnreadCount -= 1 + Me.SetNextUnreadId(Id, tab) + End SyncLock + End If End If - Next - _statuses.Remove(Id) - End If + tab.Remove(Id) + End If + Next + If _statuses.ContainsKey(Id) Then _statuses.Remove(Id) + 'End If End SyncLock End Sub