diff lisp/url/url-http.el @ 64331:bb65f8cf3863

(url-http-parse-headers): Add :redirect arg-pair when calling url-retrieve, to indicate a redirect.

--- a/lisp/url/url-http.el	Fri Jul 15 05:11:28 2005 +0000
+++ b/lisp/url/url-http.el	Fri Jul 15 05:12:09 2005 +0000
@@ -501,8 +501,9 @@
 		 (url-request-data url-http-data)
 		 (url-request-extra-headers url-http-extra-headers))
 	     (url-retrieve redirect-uri url-callback-function
-			   (cons redirect-uri
-				 (cdr url-callback-arguments)))
+			   (cons :redirect
+				 (cons redirect-uri
+				       url-callback-arguments)))
 	     (url-mark-buffer-as-dead (current-buffer))))))
       (4				; Client error
        ;; 400 Bad Request