# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1101669230 0
# Node ID 8da26294b738986f583b7479ecfbae615fc9a69b
# Parent  f17bc57096047fd67611f2c3db441234adb91e02
(url-http-create-request): Don't add newline after
the request data.

diff -r f17bc5709604 -r 8da26294b738 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Sun Nov 28 15:42:11 2004 +0000
+++ b/lisp/url/url-http.el	Sun Nov 28 19:13:50 2004 +0000
@@ -255,15 +255,16 @@
 	   (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))