From: Andreas Schwab <schwab@suse.de>
Date: Sun, 28 Nov 2004 19:14:11 +0000 (+0000)
Subject: (url-http-create-request): Don't add newline after
X-Git-Tag: ttn-vms-21-2-B4~3584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc1a0a7a28a2d8a53c331368c2df41c4bec360bb;p=emacs.git

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

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))