# HG changeset patch
# User Reiner Steib <Reiner.Steib@gmx.de>
# Date 1147436976 0
# Node ID 13e99595c0ba8a59d37d33a516b467933281fe87
# Parent  406cace5bf5a982f033a4edb9f8dd95a139dad4d
(url-http-file-exists-p): Test if status is integer.

diff -r 406cace5bf5a -r 13e99595c0ba lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Fri May 12 12:29:08 2006 +0000
+++ b/lisp/url/ChangeLog	Fri May 12 12:29:36 2006 +0000
@@ -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 -r 406cace5bf5a -r 13e99595c0ba lisp/url/url-http.el
--- a/lisp/url/url-http.el	Fri May 12 12:29:08 2006 +0000
+++ b/lisp/url/url-http.el	Fri May 12 12:29:36 2006 +0000
@@ -1141,7 +1141,8 @@
 	(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))