・移転した板のお気に入りが正しく更新されないバグを修正。

diff --git a/Favorite.pas b/Favorite.pas
index 1efbc24..2110a74 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -127,7 +127,7 @@ begin
                        tmpURL := URL;
                        GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
                        if GikoSys.Is2chHost( host ) then begin
-                               GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
+                               BBSID := GikoSys.URLToID( tmpURL );
                                FItem := BBSs[ 0 ].FindBBSID( BBSID );
                                if FItem <> nil then
                                        URL := FItem.URL;