# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121404329 0
# Node ID bb65f8cf3863254e9da7e7ae8bb4a87058e53459
# Parent  ba29905c8f5227a0d6dca518391a29007a413398
(url-http-parse-headers): Add :redirect arg-pair
when calling url-retrieve, to indicate a redirect.

diff -r ba29905c8f52 -r bb65f8cf3863 lisp/url/url-http.el
--- 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