From 6d91b0da6ed137a66885ca45964c44a6cd5ba285 Mon Sep 17 00:00:00 2001
From: Massimo Melina <a@rejetto.com>
Date: Wed, 10 Jun 2020 12:18:54 +0200
Subject: [PATCH] fix: 'no list' section flag should be inherited

---
 classesLib.pas | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/classesLib.pas b/classesLib.pas
index abfc9d3..574cc62 100644
--- a/classesLib.pas
+++ b/classesLib.pas
@@ -192,7 +192,7 @@ type
 
   ThttpClient = class(TSslHttpCli)
     constructor Create(AOwner: TComponent); override;
-    destructor destroy;
+    destructor Destroy; override;
     class function createURL(url:string):ThttpClient;
     end;
 
@@ -238,11 +238,11 @@ agent:=HFS_HTTP_AGENT;
 SslContext := TSslContext.Create(NIL);
 end; // create
 
-destructor ThttpClient.destroy;
+destructor ThttpClient.Destroy;
 begin
 SslContext.free;
 SslContext:=NIl;
-inherited;
+inherited destroy;
 end;
 
 constructor TperIp.create();
@@ -1058,6 +1058,7 @@ var
       sect.txt:=from.txt+base.txt;
       sect.nolog:=from.nolog or base.nolog;
       sect.nourl:=from.nourl or base.nourl;
+      sect.noList:=from.noList or base.noList;
       continue;
       end;
     sect^:=base;
@@ -1066,14 +1067,13 @@ var
   end; // saveInSection
 
 const
-  BOM = #$EF#$BB#$BF;
+  UTF8_BOM = #$EF#$BB#$BF;
 var
   first: boolean;
 begin
-// this is used by some unicode files. at the moment we just ignore it.
-if ansiStartsStr(BOM, txt) then
-  delete(txt, 1, length(BOM));
-  
+if ansiStartsStr(UTF8_BOM, txt) then
+  delete(txt, 1, length(UTF8_BOM));
+
 if txt = '' then exit;
 src:=src+txt;
 cur_section:='';