・Item の生成に一意な URL を使うように修正。

diff --git a/Favorite.pas b/Favorite.pas
index fec8939..a611c27 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -150,12 +150,14 @@ end;
 
 function       TFavoriteThreadItem.GetItem : TThreadItem;
 var
-       board                           : TBoard;
-       boardURL                : string;
+       board                                   : TBoard;
+       boardURL                        : string;
+       browsableURL    : string;
 begin
 
        if FItem = nil then begin
-               boardURL        := GikoSys.GetThreadURL2BoardURL( URL );
+               browsableURL := GikoSys.GetBrowsableThreadURL( URL );
+               boardURL        := GikoSys.GetThreadURL2BoardURL( browsableURL );
                board                   := BBSsFindBoardFromURL( boardURL );
 
                if board = nil then
@@ -163,10 +165,10 @@ begin
                        // \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¯
                        //board := GikoSys.GetUnknownBoard( nil, boardURL )
                else
-                       FItem := board.FindThreadFromURL( URL );
+                       FItem := board.FindThreadFromURL( browsableURL );
 
                if FItem = nil then begin
-                       FItem := TThreadItem.Create( board.BoardPlugIn, URL );
+                       FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
 
                        FItem.Title := Title;
                        board.Add( FItem );