Commit b301d174 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

(url-http-wait-for-headers-change-function): Don't move if the callback function has moved point.

parent 011f86c7
2011-02-03 Lars Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-wait-for-headers-change-function): Don't
move if the callback function has moved point.
2010-12-16 Miles Bader <Miles Bader <miles@gnu.org>>
* url-cookie.el: Require 'cl when compiling -- it's necessary for
......
......@@ -1034,10 +1034,11 @@ the end of the document."
url-http-response-status))
(url-http-debug "url-http-wait-for-headers-change-function (%s)"
(buffer-name))
(when (not (bobp))
(let ((end-of-headers nil)
(old-http nil)
(content-length nil))
(let ((end-of-headers nil)
(old-http nil)
(process-buffer (current-buffer))
(content-length nil))
(when (not (bobp))
(goto-char (point-min))
(if (and (looking-at ".*\n") ; have one line at least
(not (looking-at "^HTTP/[1-9]\\.[0-9]")))
......@@ -1151,8 +1152,9 @@ the end of the document."
'url-http-simple-after-change-function)))))
;; We are still at the beginning of the buffer... must just be
;; waiting for a response.
(url-http-debug "Spinning waiting for headers..."))
(goto-char (point-max)))
(url-http-debug "Spinning waiting for headers...")
(when (eq process-buffer (current-buffer))
(goto-char (point-max)))))
;;;###autoload
(defun url-http (url callback cbargs)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment