diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-22 23:23:11 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2017-01-22 23:23:11 +0100 |
commit | 1c59f8aac7c764484a858abfbf2ecd2a20f2f048 (patch) | |
tree | 754456d267effd607cd8e01efb9a1a3b61b16973 /lisp/url/with-url.el | |
parent | 2415aae767c830f8f3e054c9379b1e6ffb0e8d1c (diff) | |
download | emacs-1c59f8aac7c764484a858abfbf2ecd2a20f2f048.tar.gz |
Get chunked decoding right
Diffstat (limited to 'lisp/url/with-url.el')
-rw-r--r-- | lisp/url/with-url.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el index b25493b55c4..7e85d993d98 100644 --- a/lisp/url/with-url.el +++ b/lisp/url/with-url.el @@ -625,8 +625,10 @@ If given, return the value in BUFFER instead." (delete-region (match-beginning 0) (point)) (if (zerop length) (delete-region (match-beginning 0) (point-max)) - ;; Skip ahead, and then past the CRLF. - (goto-char (+ (point) length 2)))))) + ;; Skip ahead. + (goto-char (+ (point) length)) + ;; Delete the CRLF. + (delete-char 2))))) (defun with-url--redirect (process location) (let ((req (plist-get (process-plist process) :request))) |