From dc1a0a7a28a2d8a53c331368c2df41c4bec360bb Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 28 Nov 2004 19:14:11 +0000 Subject: [PATCH] (url-http-create-request): Don't add newline after the request data. --- lisp/url/ChangeLog | 5 +++++ lisp/url/url-http.el | 9 +++++---- 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 + + * url-http.el (url-http-create-request): Don't add newline after + the request data. + 2004-11-20 Masatake YAMATO * 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)) -- 2.39.5