[svn] Fix generation of `Content-Length'.

diff --git a/src/ChangeLog b/src/ChangeLog
index c88bd5e1db41cc16be59ef859031e34ddd32f37c..4cd4fa33eaf0ffe2b06ed5eb404840330e4404dd 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-12-16  Hrvoje Niksic  <hniksic@xemacs.org>
+
+       * http.c (gethttp): Fix generation of `Content-Length'.
+
 2003-12-15  Gisle Vanem  <giva@bgnett.no>
 
        * url.c (url_skip_credentials): Fixed return value; 'url' if no

diff --git a/src/http.c b/src/http.c
index 40a2fcebe5238d9995560843f8669cf7fffad58a..5159d90260c2e4ec2db583eb7cf483d14ea7e750 100644 (file)
--- a/src/http.c
+++ b/src/http.c
@@ -1253,8 +1253,7 @@ gethttp (struct url *u, struct http_stat *hs, int *dt, struct url *proxy)
            }
        }
       request_set_header (req, "Content-Length",
-                         aprintf ("Content-Length: %ld", post_data_size),
-                         rel_value);
+                         aprintf ("%ld", post_data_size), rel_value);
     }
 
   /* Add the user headers. */