From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 Jul 2005 05:12:19 +0000 (+0000)
Subject: (url-http-parse-headers): Add :redirect arg-pair
X-Git-Tag: emacs-pretest-22.0.90~8140
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc524e8ba54e8bd02e23b39159a6eb927af8ea12;p=emacs.git

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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 0313379814f..2609ff4ee13 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,11 @@
+2005-07-15  Richard M. Stallman  <rms@gnu.org>
+
+	* url-http.el (url-http-parse-headers): Add :redirect arg-pair
+	when calling url-retrieve, to indicate a redirect.
+
+	* url.el (url-retrieve): The callback function can get an additional
+	keyword arg pair.
+
 2005-07-04  Lute Kamstra  <lute@gnu.org>
 
 	Update FSF's address in GPL notices.
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 92cbf41e76b..b8bf920e2e5 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -501,8 +501,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
-			   (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