branch: externals/plz
commit 4114e23d88626a34c1189d48a63442f26472554d
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (plz--skip-redirect-headers)
Thanks to Phil Sainty's (@phil-s) comment:
<https://github.com/alphapapa/ement.el/issues/24#issuecomment-1568652832>.
---
plz.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/plz.el b/plz.el
index f746d6a45e..07b343539a 100644
--- a/plz.el
+++ b/plz.el
@@ -748,8 +748,8 @@ node `(elisp) Sentinels'). Kills the buffer before
returning."
(member (string-to-number (match-string 2)) '(301 302 307 308)))
;; Skip redirect headers ("--dump-header" forces redirect headers to be
included
;; even when used with "--location").
- (unless (re-search-forward "\r\n\r\n" nil t)
- (signal 'plz-http-error '("plz--response: End of redirect headers not
found")))))
+ (or (re-search-forward "\r\n\r\n" nil t)
+ (signal 'plz-http-error '("plz--response: End of redirect headers not
found")))))
(cl-defun plz--response (&key (decode-p t))
"Return response structure for HTTP response in current buffer.
