From 6c3f5d8d374988c15d0c437f77001e5b251ca6ba Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 9 Aug 2012 00:39:56 -0400
Subject: [PATCH] ReceiveQueue needed to set filesize on ZFILE

---
 mdl/m_protocol_zmodem.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mdl/m_protocol_zmodem.pas b/mdl/m_protocol_zmodem.pas
index 28b0d6d..875ca29 100644
--- a/mdl/m_protocol_zmodem.pas
+++ b/mdl/m_protocol_zmodem.pas
@@ -1363,7 +1363,8 @@ Begin
 
   Queue.Add(ReceivePath, FName);
 
-  Queue.QData[Queue.QSize]^.Status := QueueIntransit;
+  Queue.QData[Queue.QSize]^.FileSize := FSize;
+  Queue.QData[Queue.QSize]^.Status   := QueueIntransit;
 
   Assign (WrkFile, ReceivePath + FName);