From 780c3e32c1dff613886579cc5b703ef423a6c25e Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 26 Sep 2013 07:45:26 -0400
Subject: [PATCH] (Hopefully) final fix for FTP fidonet polling

---
 mdl/m_tcp_client_ftp.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdl/m_tcp_client_ftp.pas b/mdl/m_tcp_client_ftp.pas
index dc267b6..045807f 100644
--- a/mdl/m_tcp_client_ftp.pas
+++ b/mdl/m_tcp_client_ftp.pas
@@ -289,8 +289,8 @@ Begin
     If Not Result Then Exit;
   End;
 
-  Result := False;
   Res    := SendDataCommand(Passive, 'NLST');
+  Result := Res = 550;
 
   If (Res = 125) or (Res = 150) Then Begin
     ResponseData.Clear;