From 34709535463a62dec1394dda2cb2ce9375156cb1 Mon Sep 17 00:00:00 2001
From: spiralvoice <spiralvoice>
Date: Wed, 2 Jul 2008 07:49:06 +0000
Subject: [PATCH] patch #6557

---
 distrib/ChangeLog                    | 4 ++++
 src/networks/bittorrent/bTClients.ml | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/distrib/ChangeLog b/distrib/ChangeLog
index e4c342ae..989a9920 100644
--- a/distrib/ChangeLog
+++ b/distrib/ChangeLog
@@ -14,6 +14,10 @@ http://mldonkey.sourceforge.net/Windows#MinGW_Installation
 ChangeLog
 =========
 
+2008/07/02
+6557: BT: Send correct downloaded value when download is stopped to tracker
+      (Fox Mulder)
+-------------------------------------------------------------------------------
 2008/05/02: version 2.9.5 = tag release-2-9-5
 6503: Remove release status when download is finished
 
diff --git a/src/networks/bittorrent/bTClients.ml b/src/networks/bittorrent/bTClients.ml
index 4bad4a1a..92647dee 100644
--- a/src/networks/bittorrent/bTClients.ml
+++ b/src/networks/bittorrent/bTClients.ml
@@ -106,7 +106,7 @@ let connect_trackers file event f =
         match event with
         | "completed" -> [("event", "completed")],false,local_downloaded,zero
         | "started" -> [("event", "started")],true,zero, left
-        | "stopped" -> [("event", "stopped")],false,local_downloaded, left
+        | "stopped" -> [("event", "stopped")],false,zero, left
         | _ -> [],true,local_downloaded, left
   in
 
-- 
2.11.4.GIT