From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Fri, 12 May 2006 12:29:36 +0000 (+0000)
Subject: (url-http-file-exists-p): Test if status is integer.
X-Git-Tag: emacs-pretest-22.0.90~2608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d10a6bf119706d057ff506a6480eeaed7d687835;p=emacs.git

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

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