From 4769f98125b4fca54552543cce74cf986a5b7b97 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 24 Mar 2013 16:23:27 -0400
Subject: [PATCH] Updates

---
 mdl/m_protocol_binkp.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mdl/m_protocol_binkp.pas b/mdl/m_protocol_binkp.pas
index 68d0588..5cb04e7 100644
--- a/mdl/m_protocol_binkp.pas
+++ b/mdl/m_protocol_binkp.pas
@@ -458,6 +458,11 @@ Begin
                        If RxCommand = M_GOT Then Begin
                          HaveHeader := False;
                          NeedHeader := True;
+
+                         FileList.QData[FileList.QPos].Status := QueueSuccess;
+
+                         FileErase (FileList.QData[FileList.QPos].FilePath + FileList.QData[FileList.QPos].FileName);
+
                          TxState    := TxNextFile;
                        End;
                    End;