diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-23 18:00:17 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-23 18:00:17 +0100 |
| commit | 0013b146f30da89bd86a8604f1faf87fe35a7dab (patch) | |
| tree | c8480f041758760cc3148207d10c532b1a0f1db1 /lisp/url/with-url.el | |
| parent | 02136b4e6cc5a3222ef450e551a2ef6fa2c5470a (diff) | |
| download | emacs-0013b146f30da89bd86a8604f1faf87fe35a7dab.tar.gz | |
Get relative redirects right
Diffstat (limited to 'lisp/url/with-url.el')
| -rw-r--r-- | lisp/url/with-url.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el index 7e85d993d98..d12b5741fb7 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))))) |