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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb2206642effe4fddc52c81cae3d27c0edeefc11..e29f47b9ad9bb64ac0e4c5d87320210cedf4b005 100644 (file)
--- 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 16d51a0258c55d7cc781c6bbe24d2400ecfacacc..2c040e1c445a12295af112f635f10a599767c01c 100644 (file)
--- 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