changeset 80439:09d6e55e4476

(url-http-chunked-encoding-after-change-function): Remove superfluous CRLF at end of file. (bug #42)
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 05 Apr 2008 00:49:01 +0000
parents 1894494e0ee9
children 71c3cb311bff
files lisp/url/url-http.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-http.el	Sat Apr 05 00:48:51 2008 +0000
+++ b/lisp/url/url-http.el	Sat Apr 05 00:49:01 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)