Mercurial > emacs
changeset 110803:e5dfbfe93896
url-http.el (url-http-end-of-document-sentinel): Protect against the
process buffer being killed.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Thu, 07 Oct 2010 13:40:42 +0200 |
| parents | e544f6cc2447 |
| children | 30fed27e97bc |
| files | lisp/url/ChangeLog lisp/url/url-http.el |
| diffstat | 2 files changed, 13 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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