From d635d8c0fc2ae304e7a0fc797f3708974265d1cd Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Tue, 25 Nov 2003 16:03:40 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BBReloadBBS=20=E3=82=92=E8=8B=A5=E5=B9=B2?=
 =?utf8?q?=E5=BC=B7=E5=8C=96=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index a79c018..f6df1fa 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -1870,10 +1870,13 @@ begin
 	TreeView.Items.Clear;
 
 	//BBS”jŠü
-	for i := 0 to Length( BBSs ) - 1 do begin
-		if BBSs[ i ] <> nil then
-			BBSs[ i ].Free;
-		BBSs[ i ] := nil;
+	try
+		for i := Length( BBSs ) - 1 downto 0 do begin
+			if BBSs[ i ] <> nil then
+				BBSs[ i ].Free;
+			BBSs[ i ] := nil;
+		end;
+	except
 	end;
 
 	ActiveList := nil;
@@ -1884,6 +1887,13 @@ begin
 	ShowBBSTree( BBSs[ 0 ] );
 
 	// —š—ð“ǂݍž‚Ý
+	SaveHistory;
+	try
+		for i := FHistoryList.Count - 1 downto 0 do
+			TFavoriteThreadItem( FHistoryList[ i ] ).Free;
+	except
+	end;
+	FHistoryList.Clear;
 	LoadHistory;
 
 	//‚¨‹C‚É“ü‚è“ǂݍž‚Ý
@@ -3863,8 +3873,8 @@ begin
 //	OleVariant(Browser.Document).parentWindow.location.hash := AName;
 	nm := AName;
 	try
-    	OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=
-        		OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;
+		OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=
+			OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;
 	except
 	end;
 end;
-- 
2.11.0