changeset 62997:2ff1ad165ea3

(url-http-parse-headers): Pass redirected URL as a callback argument.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 04 Jun 2005 18:29:59 +0000
parents c45f07f05709
children dfabee441d2b
files lisp/url/url-http.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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