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