リストの初回取得数が一番最初のリストにだけしか初回取得数適応されていなかったのを修正

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index f82bab3..d1b4f12 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -2029,14 +2029,16 @@ Public Class TweenMain
             Case WORKERTYPE.List
                 bw.ReportProgress(50, MakeStatusMessage(args, False))
                 If args.tName = "" Then
-                    For Each tb As TabClass In _statuses.GetTabsByType(TabUsageType.Lists)
-                        If _FirstListsRefreshFlags AndAlso SettingDialog.UseAdditionalCount AndAlso Not SettingDialog.FirstCountApi = 0 Then
-                            _FirstListsRefreshFlags = False
+                    If _FirstListsRefreshFlags AndAlso SettingDialog.UseAdditionalCount AndAlso Not SettingDialog.FirstCountApi = 0 Then
+                        _FirstListsRefreshFlags = False
+                        For Each tb As TabClass In _statuses.GetTabsByType(TabUsageType.Lists)
                             If tb.ListInfo IsNot Nothing AndAlso tb.ListInfo.Id <> 0 Then ret = tw.GetListStatusAdditional(read, tb, False, SettingDialog.FirstCountApi)
-                        Else
+                        Next
+                    Else
+                        For Each tb As TabClass In _statuses.GetTabsByType(TabUsageType.Lists)
                             If tb.ListInfo IsNot Nothing AndAlso tb.ListInfo.Id <> 0 Then ret = tw.GetListStatus(read, tb, False)
-                        End If
-                    Next
+                        Next
+                    End If
                 Else
                     Dim tb As TabClass = _statuses.GetTabByName(args.tName)
                     If tb IsNot Nothing Then