[PATCH] Fix bug #11469; propagate url-request-* vars properly

[PATCH] Fix bug #11469; propagate url-request-* vars properly

[Takafumi Arakaki]

[-- Attachment #1: Type: text/plain, Size: 166 bytes --]

Hi,

This is a patch to fix bug #11469
24.1.50; url-retrieve with PUT method fails every two times
http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11469

Best,
Takafumi

[-- Attachment #2: 0001-Fix-bug-11469-propagate-url-request-vars-properly.patch --]
[-- Type: application/octet-stream, Size: 1297 bytes --]

From 3d1e5c7dd14d5b47749b9a1c727deb64abcb5bba Mon Sep 17 00:00:00 2001
From: Takafumi Arakaki <aka.tkf@gmail.com>
Date: Thu, 20 Dec 2012 20:06:00 +0100
Subject: [PATCH] Fix bug #11469; propagate url-request-* vars properly

url-retrieve with PUT method failed every two times prior to this
patch, as url-request-method was not propagated to the nested call
of url-http.
---
 lisp/url/url-http.el |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 73d53e0..1f705f6 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -890,8 +890,11 @@ should be shown to the user."
 		 (url-http-activate-callback)
 	       ;; Call `url-http' again if our connection expired.
 	       (erase-buffer)
-	       (url-http url-current-object url-callback-function
-			 url-callback-arguments (current-buffer))))
+               (let ((url-request-method url-http-method)
+                     (url-request-extra-headers url-http-extra-headers)
+                     (url-request-data url-http-data))
+                 (url-http url-current-object url-callback-function
+                           url-callback-arguments (current-buffer)))))
 	    ((url-http-parse-headers)
 	     (url-http-activate-callback))))))
 
-- 
1.7.5.4