(url-http-file-exists-p): Test if status is integer.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 1c3e383c9fbb3b28f23ab87d92d8475a18f93e31..8eb2cd8471b610c5684520de88663aea914d87a6 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-12  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * url-http.el (url-http-file-exists-p): Test if status is integer.
+
 2006-05-05  Andreas Seltenreich  <seltenreich@gmx.de>  (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 45bf97ec6b607711eaa9ca0221c166a74aa2cb80..ae3a4b3e0706127b27788ad5b07b9a0df3f37915 100644 (file)
--- 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))