From d10a6bf119706d057ff506a6480eeaed7d687835 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Fri, 12 May 2006 12:29:36 +0000 Subject: [PATCH] (url-http-file-exists-p): Test if status is integer. --- lisp/url/ChangeLog | 4 ++++ lisp/url/url-http.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 1c3e383c9fb..8eb2cd8471b 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2006-05-12 Reiner Steib + + * url-http.el (url-http-file-exists-p): Test if status is integer. + 2006-05-05 Andreas Seltenreich (tiny change) * url-http.el (url-http-parse-headers): Don't reuse connection if diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 45bf97ec6b6..ae3a4b3e070 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1141,7 +1141,8 @@ CBARGS as the arguments." (setq exists nil) (setq status (url-http-symbol-value-in-buffer 'url-http-response-status buffer 500) - exists (and (>= status 200) (< status 300))) + exists (and (integerp status) + (>= status 200) (< status 300))) (kill-buffer buffer)) exists)) -- 2.39.5