(url-http-parse-headers): Add :redirect arg-pair

when calling url-retrieve, to indicate a redirect.

2 files changed, 11 insertions, 2 deletions

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