aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2008-04-05 00:49:01 +0000
committerChong Yidong2008-04-05 00:49:01 +0000
commitbc884fa06a2776f747f6b4b47da175e23ecc9be2 (patch)
treec8fab175ae3cfd56cfb6db8b9de7cdaa4ad4970e
parent44b35a235bdfdde7d05c9d2fbcd74b913a7d1a9f (diff)
downloademacs-bc884fa06a2776f747f6b4b47da175e23ecc9be2.tar.gz
emacs-bc884fa06a2776f747f6b4b47da175e23ecc9be2.zip
(url-http-chunked-encoding-after-change-function):
Remove superfluous CRLF at end of file. (bug #42)
-rw-r--r--lisp/url/url-http.el6
1 files changed, 5 insertions, 1 deletions
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."
948 (url-http-debug "Saw end of stream chunk!") 948 (url-http-debug "Saw end of stream chunk!")
949 (setq read-next-chunk nil) 949 (setq read-next-chunk nil)
950 (url-display-percentage nil nil) 950 (url-display-percentage nil nil)
951 (goto-char (match-end 1)) 951 ;; Every chunk, even the last 0-length one, is
952 ;; terminated by CRLF. Skip it.
953 (when (looking-at "\r?\n")
954 (url-http-debug "Removing terminator of last chunk")
955 (delete-region (match-beginning 0) (match-end 0)))
952 (if (re-search-forward "^\r*$" nil t) 956 (if (re-search-forward "^\r*$" nil t)
953 (url-http-debug "Saw end of trailers...")) 957 (url-http-debug "Saw end of trailers..."))
954 (if (url-http-parse-headers) 958 (if (url-http-parse-headers)