From 4876165dddb6b4d9699ecfff9eccd3e1f2ba644e Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Tue, 27 Jan 2004 14:49:48 +0000
Subject: [PATCH] =?utf8?q?=E3=81=BE=E3=81=A1BBS=E3=82=92=E5=90=AB=E3=82=80?=
 =?utf8?q?=E3=81=A8=E7=A0=B4=E7=B6=BB=E3=81=99=E3=82=8B=E3=81=93=E3=81=A8?=
 =?utf8?q?=E3=81=8C=E5=88=A4=E6=98=8E=E3=81=97=E3=81=9F=E3=81=AE=E3=81=A7?=
 =?utf8?q?=E5=86=8D=E3=81=B3=E9=99=A4=E5=A4=96?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 NewBoard.pas | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/NewBoard.pas b/NewBoard.pas
index 2ba77c3..258b922 100644
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -173,6 +173,7 @@ var
 	idx: Integer;
 	idx1: Integer;
 	idx2: Integer;
+    n: Integer;
 	tmp: string;
 	URL: string;
 	Title: string;
@@ -224,7 +225,7 @@ begin
 
 					if (tmp = '‚¨‚·‚·‚ß') or
 						 (tmp = '“Á•ÊŠé‰æ') or
-						 //(tmp = '‚Ü‚¿‚a‚a‚r') or
+						 (tmp = '‚Ü‚¿‚a‚a‚r') or
 						 (tmp = 'ƒ`ƒƒƒbƒg') or
 						 (tmp = '‚¨ŠG‚©‚«') or
 						 (tmp = '‰^‰c') or
@@ -250,22 +251,22 @@ begin
 						if i <> 0 then begin
 							URL := Copy(tmp, 1, i - 1);
 							Title := Copy(tmp, i + 1, Length(tmp));
-							Board := BBSs[ 0 ].FindBoardFromTitle(Title);
-							if Board = nil then begin
-								MessageMemo.Lines.Add('V”’ljÁu' + Title + '(' + URL + ')v');
-								ini.WriteString(cate, Title, URL);
-								Change := True;
-							end else begin
-								if Board.URL <> URL then begin
-									MessageMemo.Lines.Add('URL•ÏXu' + Board.Title + '(' + URL +')v');
-									ini.WriteString(cate, Title, URL);
+                            Board := BBSs[ 0 ].FindBoardFromTitle(Title);
+                            if Board = nil then begin
+                            	MessageMemo.Lines.Add('V”’ljÁu' + Title + '(' + URL + ')v');
+                                ini.WriteString(cate, Title, URL);
+                                Change := True;
+                            end else begin
+                            	if Board.URL <> URL then begin
+                                	MessageMemo.Lines.Add('URL•ÏXu' + Board.Title + '(' + URL +')v');
+                                    ini.WriteString(cate, Title, URL);
                                     oldURLs.Add(Board.URL);
-							    	newURLs.Add(URL);
-									Change := True;
-								end else begin
-									ini.WriteString(cate, Title, URL);
-								end;
-							end;
+                                    newURLs.Add(URL);
+                                    Change := True;
+                                end else begin
+                                	ini.WriteString(cate, Title, URL);
+                                end;
+                            end;
 						end else begin
 							s := Copy(s, idx2 + 2, Length(s));
 							Continue;
-- 
2.11.0