Fix wrong variable name.

(url-http-parse-headers): Fix wrong variable name.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index fc4bca157afc148770c729123dc84aba71b6c753..d3231672dd223d3d46f10f0b978556cb0544b973 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-24  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * url-http.el (url-http-parse-headers): Fix wrong variable name.
+
 2010-03-24  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * url-http.el (url-http-codes): New variable to hold a mapping of

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 4d734815c97447cfecaae90c920b4bbf12439568..9f988beaf0a343e778c1a3b39443c274f1769d6f 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -486,7 +486,7 @@ should be shown to the user."
        (class nil)
        (success nil)
        ;; other status symbols: jewelry and luxury cars
-       (status-symbol (cadr (assq status-number url-http-codes))))
+       (status-symbol (cadr (assq url-http-response-status url-http-codes))))
     (setq class (/ url-http-response-status 100))
     (url-http-debug "Parsed HTTP headers: class=%d status=%d" class url-http-response-status)
     (url-http-handle-cookies)