From d116ed58747fbd8f13358584fe3cff09f413acf6 Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Tue, 18 Apr 2006 09:17:28 +0000
Subject: [PATCH] Fixed List index out of bounds bug while saving a single
 flame.

---
 2.10/Source/Main.pas | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas
index 6490a63..da40067 100644
--- a/2.10/Source/Main.pas
+++ b/2.10/Source/Main.pas
@@ -1467,15 +1467,21 @@ begin
           FileList[0] := '<Flames name="' + Tag + '">';
         end;
 
-        if pos('<flame ', FileList.text) <> 0 then
-          repeat
-            FileList.Delete(FileList.Count - 1);
-          until (Pos('</flame>', FileList[FileList.count - 1]) <> 0)
-        else
-          repeat
-            FileList.Delete(FileList.Count - 1);
-          until (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0) or
-                (Pos('</Flames>', FileList[FileList.count - 1]) <> 0);
+        if FileList.Count > 2 then
+        begin
+          if pos('<flame ', FileList.text) <> 0 then
+            repeat
+              FileList.Delete(FileList.Count - 1);
+            until (Pos('</flame>', FileList[FileList.count - 1]) <> 0)
+          else
+            repeat
+              FileList.Delete(FileList.Count - 1);
+            until (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0) or
+                  (Pos('</Flames>', FileList[FileList.count - 1]) <> 0);
+        end else
+        begin
+          FileList.Delete(FileList.Count - 1);
+        end;
 
         FileList.Add(Trim(FlameToXML(cp1, false)));
         FileList.Add('</Flames>');