(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 0313379814ff8c1e10428f2cd82e855ed7da1034..2609ff4ee130d2318e61cc6213a0b4136a0b180e 100644 (file)
--- 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 92cbf41e76b731d8817a2af1cf40dcc77e362fe4..b8bf920e2e552ad464493373667ec8640f662794 100644 (file)
--- 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