diff options
| author | Magnus Henoch <mange@freemail.hu> | 2008-03-09 20:16:12 +0000 |
|---|---|---|
| committer | Magnus Henoch <mange@freemail.hu> | 2008-03-09 20:16:12 +0000 |
| commit | 84f089d3fb26708efdab41f823e65af718bb6cf8 (patch) | |
| tree | c99c78e21382330076c23bf7b825b2adc26b952c /lisp/url/url-http.el | |
| parent | c102c94f1a79eca4ac60578a5a1d41d1f67b3e9b (diff) | |
| download | emacs-84f089d3fb26708efdab41f823e65af718bb6cf8.tar.gz | |
(url-http-chunked-encoding-after-change-function):
Remove superfluous CRLF at end of file. (bug #42)
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 7b29eba05ef..c9cecea65c1 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -948,7 +948,11 @@ the end of the document." (url-http-debug "Saw end of stream chunk!") (setq read-next-chunk nil) (url-display-percentage nil nil) - (goto-char (match-end 1)) + ;; Every chunk, even the last 0-length one, is + ;; terminated by CRLF. Skip it. + (when (looking-at "\r?\n") + (url-http-debug "Removing terminator of last chunk") + (delete-region (match-beginning 0) (match-end 0))) (if (re-search-forward "^\r*$" nil t) (url-http-debug "Saw end of trailers...")) (if (url-http-parse-headers) |