diff options
| author | Chong Yidong | 2008-04-05 00:49:01 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-04-05 00:49:01 +0000 |
| commit | bc884fa06a2776f747f6b4b47da175e23ecc9be2 (patch) | |
| tree | c8fab175ae3cfd56cfb6db8b9de7cdaa4ad4970e | |
| parent | 44b35a235bdfdde7d05c9d2fbcd74b913a7d1a9f (diff) | |
| download | emacs-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.el | 6 |
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) |