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

2 files changed, 8 insertions, 1 deletions

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