Mercurial > emacs

diff lisp/url/url-http.el @ 92686:c8be70dde05c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-http-chunked-encoding-after-change-function): Remove superfluous CRLF at end of file. (bug #42)
author Magnus Henoch <mange@freemail.hu>
date Sun, 09 Mar 2008 20:15:59 +0000
parents 107ccd98fa12
children 8259d0d8e107
line wrap: on
line diff
--- a/lisp/url/url-http.el	Sun Mar 09 19:58:55 2008 +0000
+++ b/lisp/url/url-http.el	Sun Mar 09 20:15:59 2008 +0000
@@ -948,7 +948,11 @@
 		  (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)