[Emacs-diffs] Changes to emacs/lisp/url/url-http.el, v [EMACS_22_BASE]

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Chong Yidong <cyd>      08/04/05 00:49:01

Index: url-http.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-http.el,v
retrieving revision 1.53.2.3
retrieving revision 1.53.2.4
diff -u -b -r1.53.2.3 -r1.53.2.4
--- url-http.el 7 Jan 2008 02:23:02 -0000       1.53.2.3
+++ url-http.el 5 Apr 2008 00:49:01 -0000       1.53.2.4
@@ -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)