From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 5 Apr 2008 00:49:01 +0000 (+0000)
Subject: (url-http-chunked-encoding-after-change-function):
X-Git-Tag: emacs-pretest-22.2.90~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc884fa06a2776f747f6b4b47da175e23ecc9be2;p=emacs.git

(url-http-chunked-encoding-after-change-function):
Remove superfluous CRLF at end of file.  (bug #42)
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 955eac0f995..98060461f3d 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)