・板一覧更新で同一板が別カテゴリに別名で存在する場合に対応

[gikonavigoeson/gikonavi.git] / NewBoard.pas

diff --git a/NewBoard.pas b/NewBoard.pas
index 8c3a9a8..c18140e 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -286,6 +286,8 @@ begin
                                 Board := nil;
                             end else begin
                                 Board := BBSs[ 0 ].FindBoardFromTitleAndCategory(cate, Title);
+                                if Board = nil then
+                                    Board := BBSs[ 0 ].FindBoardFromURLAndCategory(cate, URL);
                             end;
                             if Board = nil then begin
                                MessageMemo.Lines.Add('\90V\94Â\92Ç\89Á\81u' + Title + '(' + URL + ')\81v');