(url-http-create-request): Don't add newline after

the request data.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 8f97d48bc46..7a527f943e3 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-28  Andreas Schwab  <schwab@suse.de>
+
+        * url-http.el (url-http-create-request): Don't add newline after
+        the request data.
+
 2004-11-20  Masatake YAMATO  <jet@gyve.org>
 
         * url.el (url-mm-callback): Delay the invocation
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 200025c3804..a3fd54e3cba 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -255,15 +255,16 @@ request.
            (if ref-url (concat
                         "Referer: " ref-url "\r\n"))
            extra-headers
-           ;; Any data
+           ;; Length of data
            (if url-request-data
                (concat
                 "Content-length: " (number-to-string
                                     (length url-request-data))
-                "\r\n\r\n"
-                url-request-data))
+                "\r\n"))
            ;; End request
-           "\r\n"))
+           "\r\n"
+           ;; Any data
+           url-request-data))
     (url-http-debug "Request is: \n%s" request)
     request))