Fixed the bug in ExtractUrls - normal talk could be handled as a tag

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 75cb2f9..32bef50 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -685,8 +685,11 @@ var i, u, j: integer;
 begin
   Result.Clear;
   SsParser.InputString := Script;
+  SsParser.LeaveEscape := true;
   for i := 0 to SsParser.Count-1 do begin
-    if (SsParser.Match(SsParser[i], '\URL%b') > 0) then begin
+    if (SsParser.Match(SsParser[i], '\URL%b') > 0)
+    and (SsParser.MarkUpType[i] = mtTag) then
+    begin
       for u := 7 downto 1 do begin
         if (SsParser.Match(SsParser[i],
             '\URL%b'+StringReplace(StringOfChar('-', u*2),