OSDN Git Service

・2ちゃんねるで移転したお気に入りを開くと正しく見つけられないバグを修正。
authoryoffy <yoffy>
Sun, 11 Apr 2004 10:03:34 +0000 (10:03 +0000)
committeryoffy <yoffy>
Sun, 11 Apr 2004 10:03:34 +0000 (10:03 +0000)
 ※ギコナビを起動するたびにそのスレが未更新でもダウンロードできてしまう現象も修正される。

Favorite.pas

index 42d9086..1efbc24 100644 (file)
@@ -129,6 +129,8 @@ begin
                        if GikoSys.Is2chHost( host ) then begin
                                GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
                                FItem := BBSs[ 0 ].FindBBSID( BBSID );
+                               if FItem <> nil then
+                                       URL := FItem.URL;
                        end;
                        {
                        // \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82­\95Û\97¯
@@ -206,6 +208,17 @@ begin
                FItem := board.FindThreadFromURL( browsableURL );
 
                if FItem = nil then 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 );
+                               FItem := BBSs[ 0 ].FindThreadItem( BBSID, BBSKey + '.dat' );
+                               if FItem <> nil then
+                                       URL := FItem.URL;
+                       end;
+               end;
+
+               if FItem = nil then begin
                        FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
 
                        FItem.Title := Title;