url-http.el (url-http-end-of-document-sentinel): Protect against the

process buffer being killed.

2 files changed, 13 insertions, 7 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 37a635e9906..4c4af45b1c2 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 1c9c8c8a3de..9bfb6df1d42 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -874,13 +874,14 @@ should be shown to the user."
   (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