# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1117909799 0
# Node ID 2ff1ad165ea30fb8fa0eff259d5f81810f06ba01
# Parent  c45f07f057099af87fec28e411219f4cb334ef00
(url-http-parse-headers): Pass redirected URL as a callback argument.

diff -r c45f07f05709 -r 2ff1ad165ea3 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Sat Jun 04 18:15:42 2005 +0000
+++ b/lisp/url/url-http.el	Sat Jun 04 18:29:59 2005 +0000
@@ -500,7 +500,9 @@
 		 (url-request-data url-http-data)
 		 (url-request-extra-headers url-http-extra-headers))
 	     (url-retrieve redirect-uri url-callback-function
-			   url-callback-arguments)
+			   (cons redirect-uri
+				 (and url-callback-arguments
+				      (cdr url-callback-arguments))))
 	     (url-mark-buffer-as-dead (current-buffer))))))
       (4				; Client error
        ;; 400 Bad Request