・今までコンストラクタを呼び出す側に URL の整形をさせていたが、

　どんな入力が来てもスレッドの URL が一意になるようにクラス側で整形するようになった。
・スレッドの URL は、TThreadItem クラスの保持している URL が完全(省略されていない)
　URL なので、FindThreadFromURl で扱う Pos の引数としては逆になるべきなので修正。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 5c33b11..ca09d7a 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -942,7 +942,7 @@ var
 begin
        Result := -1;
        for i := 0 to Count - 1 do begin
-               if Items[i].URL = URL then begin
+               if Pos( URL, Items[ i ].URL ) = 1 then begin
                        Result := i;
                        Exit;
                end;
@@ -958,7 +958,7 @@ begin
                GikoSys.ReadSubjectFile( Self );
                
        for i := Count - 1 downto 0 do begin
-               if Pos( Items[ i ].URL, inURL ) = 1 then begin
+               if Pos( inURL, Items[ i ].URL ) = 1 then begin
                        Result := Items[ i ];
                        Exit;
                end;
@@ -1398,6 +1398,7 @@ begin
                                        EXTERNAL_LOG_FOLDER + PATH_DELIM + host + PATH_DELIM + BBSID + PATH_DELIM + BBSKey + '.dat';
                        FileName        := BBSKey + '.dat';
                        IsLogFile       := FileExists( FilePath );
+                       URL                             := GikoSys.Get2chBrowsableThreadURL( inURL );
                end;
        end else begin
                // \83v\83\89\83O\83C\83\93\82É TThreadItem \82ª\8dì\90¬\82³\82ê\82½\82±\82Æ\82ð\93`\82¦\82é