From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 4 Jun 2005 18:30:54 +0000 (+0000)
Subject: (url-http-parse-headers): Pass redirected URL as a callback argument.
X-Git-Tag: emacs-pretest-22.0.90~9328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86b21ac359d97b255561ef36dc995f72a97d6915;p=emacs.git

(url-http-parse-headers): Pass redirected URL as a callback argument.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb2206642ef..e29f47b9ad9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-04  Thierry Emery  <thierry.emery@free.fr>  (tiny change)
+
+	* url-http.el (url-http-parse-headers): Pass redirected URL as a
+	callback argument.
+
 2005-06-04  Kim F. Storm  <storm@cua.dk>
 
 	* simple.el (line-move): Only call sit-for when moving backwards.
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 16d51a0258c..2c040e1c445 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -500,7 +500,9 @@ should be shown to the user."
 		 (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