Mercurial > emacs
changeset 70606:13e99595c0ba
(url-http-file-exists-p): Test if status is integer.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Fri, 12 May 2006 12:29:36 +0000 |
| parents | 406cace5bf5a |
| children | 13e1d5a7d01e |
| files | lisp/url/ChangeLog lisp/url/url-http.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))