・ReadSubject 内で IsLogFile を設定しなくなった。

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 88abe07..e4e5f4a 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -517,7 +517,6 @@ begin
        //\91O\89ñ\88Ù\8fí\8fI\97¹\8e\9e\97pTmp\83t\83@\83C\83\8b\83\8a\83X\83g
        GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False);
 
-
        sl := TStringList.Create;
        try
                if FileExists(FileName) then
@@ -535,7 +534,7 @@ begin
                                ThreadItem := TThreadItem.Create(
                                        nil,
                                        Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) );
-
+        {
                                //IsLogFile\83`\83F\83b\83N
                                ThreadItem.IsLogFile := False;
                                if FileList.Count <> 0 then begin
@@ -544,6 +543,7 @@ begin
                                                FileList.Delete( Index );
                                        end;
                                end;
+        }
                        end;
                        ThreadItem.BeginUpdate;
                        ThreadItem.No := Rec.FNo;