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

the request data.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 8f97d48bc463221975b63592ef52a6cfce510778..7a527f943e3ed0b3dbef7d4bac68baa388e31deb 100644 (file)
--- 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 200025c3804f42e4babebfab99d95a7501a2efcd..a3fd54e3cba71fa4bec5ba65d857675a54a9907b 100644 (file)
--- 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))