From dc524e8ba54e8bd02e23b39159a6eb927af8ea12 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 Jul 2005 05:12:19 +0000 Subject: [PATCH] (url-http-parse-headers): Add :redirect arg-pair when calling url-retrieve, to indicate a redirect. --- lisp/url/ChangeLog | 8 ++++++++ lisp/url/url-http.el | 5 +++-- 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 + + * 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 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 -- 2.39.5