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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a557f8d0e38de9e6bb86bd796ddf8cb490828ada..446bdc4afdd6f91c784c5a4e5c6d160bca21b947 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 7b82f1147037b8b4143e71189bd5b752ddfb35e2..07e57cf3301bebc743aadbd9d533cf2fcb36d636 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -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)