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

2 files changed, 6 insertions, 1 deletions

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  <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 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))