From c150630586f569eff0bb6483418db11d543764bc Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Sat, 26 Apr 2008 09:59:13 +0000
Subject: [PATCH] fixed  endless loop when unexpected 100 response is readed in
 THTTPSend

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@88 7c85be65-684b-0410-a082-b2ed4fbef004
---
 httpsend.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/httpsend.pas b/httpsend.pas
index ac1019e..823f0cb 100644
--- a/httpsend.pas
+++ b/httpsend.pas
@@ -1,9 +1,9 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 003.011.003 |
+| Project : Ararat Synapse                                       | 003.011.004 |
 |==============================================================================|
 | Content: HTTP client                                                         |
 |==============================================================================|
-| Copyright (c)1999-2007, Lukas Gebauer                                        |
+| Copyright (c)1999-2008, Lukas Gebauer                                        |
 | All rights reserved.                                                         |
 |                                                                              |
 | Redistribution and use in source and binary forms, with or without           |
@@ -539,11 +539,11 @@ begin
   if Status100Error = '' then
   begin
     repeat
-      s := FSock.RecvString(FTimeout);
-      if s <> '' then
-        Break;
-    until FSock.LastError <> 0;
-    repeat
+      repeat
+        s := FSock.RecvString(FTimeout);
+        if s <> '' then
+          Break;
+      until FSock.LastError <> 0;
       if Pos('HTTP/', UpperCase(s)) = 1 then
       begin
         FHeaders.Add(s);