したらばJBBSの板のURLがshitarabaのときの不具合の修正

diff --git a/Favorite.pas b/Favorite.pas
index 7e6cbb3..c6e6b27 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -110,8 +110,8 @@ end;
 destructor TFavoriteBoardItem.Destory;
 begin
        if FItem <> nil then
-       FItem.Free;
-    inherited;
+               FItem.Free;
+       inherited;
 end;
 function       TFavoriteBoardItem.GetItem : TBoard;
 var
@@ -131,6 +131,12 @@ begin
                                FItem := BBSs[ 0 ].FindBBSID( BBSID );
                                if FItem <> nil then
                                        URL := FItem.URL;
+                       end else if AnsiPos('jbbs.shitaraba.com', host) <> 0 then begin
+                               // \82µ\82½\82ç\82ÎJBBS\82Ìhttp://jbbs.shitaraba.com/\81@\81¨\81@http://jbbs.livedoor.com/\81@\92u\8a·
+                               URL := CustomStringReplace(URL, 'http://jbbs.shitaraba.com/', 'http://jbbs.livedoor.com/', false);
+                               FItem := BBSsFindBoardFromURL( URL );
+                               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¯
@@ -140,7 +146,7 @@ begin
                end;
        end;
 
-       Result := FItem;
+       Result := FItem;
 
 end;
 
@@ -152,8 +158,8 @@ constructor TFavoriteThreadItem.Create(
 begin
 
        inherited Create;
-
        URL             := inURL;
+
        Title   := inTitle;
        Item    := inItem;