From 6e6f9b3cfb879274c1022d767c7be2f70a4f06b8 Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Wed, 26 Nov 2003 03:49:38 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BB=E5=B1=A5=E6=AD=B4=E3=81=AE=E8=BF=BD?=
 =?utf8?q?=E5=8A=A0=E3=81=8C=E3=83=90=E3=82=B0=E3=81=A3=E3=81=A6=E3=82=8B?=
 =?utf8?q?=E3=81=AE=E3=81=A7=E4=BF=AE=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index f6df1fa..f74b0f8 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -1858,7 +1858,6 @@ end;
 procedure TGikoForm.ReloadBBS;
 var
 	i			: Integer;
-	item	: TBBSMenuItem;
 begin
 	//ƒ^ƒuƒNƒ[ƒY
 	NotSelectTabCloseAction.Execute;
@@ -1960,7 +1959,6 @@ begin
 						end;
 					end;
 				end;
-				Board.LoadSettings;
 				Board.EndUpdate;
 			end;
 
@@ -3456,7 +3454,6 @@ begin
 //		Exit;
 
 	Result := True;
-	item := nil;
 	for i := 0 to FHistoryList.Count - 1 do begin
 		if TObject(FHistoryList[i]) is TFavoriteThreadItem then begin
 			Item := TFavoriteThreadItem(FHistoryList[i]);
@@ -3478,8 +3475,7 @@ begin
 
 	if FTreeType = gttHistory then begin
 		Node := TreeView.Items.Add( nil, favItem.Title );
-		if TreeView.Items.Count > 1 then
-			TreeView.Items[ i ].MoveTo( TreeView.TopItem, naInsert );
+		Node.MoveTo( TreeView.TopItem, naInsert );
 		{
 		if favItem.NewArrival then begin
 			Node.ImageIndex := ITEM_ICON_THREADNEW1;
@@ -6216,7 +6212,6 @@ begin
 								boardNode.Data							:= Board;
 								boardNode.ImageIndex				:= ITEM_ICON_BOARD1;
 								boardNode.SelectedIndex			:= ITEM_ICON_BOARD2;
-								Board.LoadSettings;
 								Board.EndUpdate;
 							end;
 						end else begin
-- 
2.11.0