From f2408eaaa1e2afb6be15588e0f8f8a2c3cfe1ec6 Mon Sep 17 00:00:00 2001 From: Daniele Nicolodi Date: Fri, 10 Jul 2020 12:16:01 -0600 Subject: [PATCH] url-http: Fix handling of redirect locations containing whitespace --- lisp/url/url-http.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 669c24571f..b7d6f42ed5 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -702,9 +702,7 @@ should be shown to the user." ;; Treat everything like '300' nil)) (when redirect-uri - ;; Clean off any whitespace and/or <...> cruft. - (if (string-match "\\([^ \t]+\\)[ \t]" redirect-uri) - (setq redirect-uri (match-string 1 redirect-uri))) + ;; Clean off any <...> cruft. (if (string-match "^<\\(.*\\)>$" redirect-uri) (setq redirect-uri (match-string 1 redirect-uri))) -- 2.24.3 (Apple Git-128)