procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* url-http.el (url-http-clean-headers): Return the number of

Browse source 
removed characters.
	(url-http-wait-for-headers-change-function): Adjust end position
	after cleaning the headers.  (Bug#10768)
This commit is contained in:
Andreas Schwab 2012-02-10 12:36:42 +01:00
parent 5f5e4ea10c
commit d7c5e1622f
2 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/url/ChangeLog
View file

@ -1,3 +1,10 @@
2012-02-10 Andreas Schwab <schwab@linux-m68k.org>
* url-http.el (url-http-clean-headers): Return the number of
removed characters.
(url-http-wait-for-headers-change-function): Adjust end position
after cleaning the headers. (Bug#10768)
2012-02-10 Glenn Morris <rgm@gnu.org>
* url-queue.el (url-queue-retrieve): Doc fix.

13
lisp/url/url-http.el
View file

@ -354,11 +354,14 @@ request.")
;; Parsing routines
(defun url-http-clean-headers ()
"Remove trailing \r from header lines.
This allows us to use `mail-fetch-field', etc."
This allows us to use `mail-fetch-field', etc.
Return the number of characters removed."
(declare (special url-http-end-of-headers))
(goto-char (point-min))
(while (re-search-forward "\r$" url-http-end-of-headers t)
(replace-match "")))
(let ((end (marker-position url-http-end-of-headers)))
(goto-char (point-min))
(while (re-search-forward "\r$" url-http-end-of-headers t)
(replace-match ""))
(- end url-http-end-of-headers)))
(defun url-http-handle-authentication (proxy)
(declare (special status success url-http-method url-http-data
@ -1054,7 +1057,7 @@ the end of the document."
(setq url-http-end-of-headers (set-marker (make-marker)
(point))
end-of-headers t)
(url-http-clean-headers)))
(setq nd (- nd (url-http-clean-headers)))))
(if (not end-of-headers)
;; Haven't seen the end of the headers yet, need to wait