From c828ac8d03894e4d2186f4a4e897af2f48bf8e48 Mon Sep 17 00:00:00 2001
From: kiri_feather <kiri_feather@users.sourceforge.jp>
Date: Tue, 10 May 2011 13:28:17 +0900
Subject: [PATCH] =?utf8?q?DM=E5=89=8A=E9=99=A4=E6=99=82=E3=81=AB(DELETED)?=
 =?utf8?q?=E3=81=A7=E6=AE=8B=E3=81=A3=E3=81=A6=E3=81=97=E3=81=BE=E3=81=86?=
 =?utf8?q?=E3=83=90=E3=82=B0=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Tween/StatusDictionary.vb | 48 +++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/Tween/StatusDictionary.vb b/Tween/StatusDictionary.vb
index e20e3b19..f7bdbb50 100644
--- a/Tween/StatusDictionary.vb
+++ b/Tween/StatusDictionary.vb
@@ -687,32 +687,32 @@ Public NotInheritable Class TabInformations
     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
+                    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
-                        tab.Remove(Id)
                     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
 
-- 
2.11.0