From 2b25dd5dec65090721036fbf8a9ed1c4c8636be8 Mon Sep 17 00:00:00 2001 From: yoffy Date: Mon, 1 Dec 2003 06:19:03 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BBItem=20=E3=81=AE=E7=94=9F=E6=88=90?= =?utf8?q?=E3=81=AB=E4=B8=80=E6=84=8F=E3=81=AA=20URL=20=E3=82=92=E4=BD=BF?= =?utf8?q?=E3=81=86=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE=E6=AD=A3=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Favorite.pas | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/Favorite.pas b/Favorite.pas index fec8939..a611c27 100644 --- 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 // ¦ì‚Á‚Ä‚àA’ljÁ‚·‚éƒJƒeƒSƒŠ‚ª–³‚¢‚Ì‚ÅŒƒ‚µ‚­•Û—¯ //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 ); -- 2.11.0