[Emacs-diffs] scratch/with-url 0013b14 2/2: Get relative redirects right

[Lars Ingebrigtsen]

branch: scratch/with-url
commit 0013b146f30da89bd86a8604f1faf87fe35a7dab
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Get relative redirects right
---
 lisp/url/with-url.el |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el
index 7e85d99..d12b574 100644
--- a/lisp/url/with-url.el
+++ b/lisp/url/with-url.el
@@ -569,7 +569,9 @@ If given, return the value in BUFFER instead."
        ((> (url-request-redirect-times req) 10)
         (with-url--callback process '(500 "Too many redirections")))
        (t
-        (with-url--redirect process (url-header 'location)))))
+        (with-url--redirect process
+                            (url-expand-file-name
+                             (url-header 'location) (url-request-url req))))))
      (t
       (with-url--callback process)))))