# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 1286451642 -7200
# Node ID e5dfbfe938965dd1609ae44974df422e04a00c4b
# Parent  e544f6cc24476b09137da394f28d832f46d23c82
url-http.el (url-http-end-of-document-sentinel): Protect against the
process buffer being killed.

diff -r e544f6cc2447 -r e5dfbfe93896 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Thu Oct 07 13:27:19 2010 +0200
+++ b/lisp/url/ChangeLog	Thu Oct 07 13:40:42 2010 +0200
@@ -1,3 +1,8 @@
+2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* url-http.el (url-http-end-of-document-sentinel): Protect against
+	the process buffer being killed.
+
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* url-http.el (url-http-wait-for-headers-change-function): Protect
diff -r e544f6cc2447 -r e5dfbfe93896 lisp/url/url-http.el
--- a/lisp/url/url-http.el	Thu Oct 07 13:27:19 2010 +0200
+++ b/lisp/url/url-http.el	Thu Oct 07 13:40:42 2010 +0200
@@ -874,13 +874,14 @@
   (url-http-debug "url-http-end-of-document-sentinel in buffer (%s)"
 		  (process-buffer proc))
   (url-http-idle-sentinel proc why)
-  (with-current-buffer (process-buffer proc)
-    (goto-char (point-min))
-    (if (not (looking-at "HTTP/"))
-	;; HTTP/0.9 just gets passed back no matter what
-	(url-http-activate-callback)
-      (if (url-http-parse-headers)
-	  (url-http-activate-callback)))))
+  (when (buffer-name (process-buffer proc))
+    (with-current-buffer (process-buffer proc)
+      (goto-char (point-min))
+      (if (not (looking-at "HTTP/"))
+	  ;; HTTP/0.9 just gets passed back no matter what
+	  (url-http-activate-callback)
+	(if (url-http-parse-headers)
+	    (url-http-activate-callback))))))
 
 (defun url-http-simple-after-change-function (st nd length)
   ;; Function used when we do NOT know how long the document is going to be