Diane Murray <disumu at x3y2z1.net>

(url-get-normalized-date): Pass full timezone information to
timezone-make-date-arpa-standard, since zone name may be unknown.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 03839b0f9223d3f2983860022c554840aab84619..3aa5d63ddc0f53e7432a25743cac2f645857e951 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-21  Diane Murray  <disumu@x3y2z1.net>
+
+       * url-util.el (url-get-normalized-date): Pass full timezone
+       information to timezone-make-date-arpa-standard, since zone name
+       may be unknown.
+
 2007-09-03  Diane Murray  <disumu@x3y2z1.net>
 
        * url-http.el: (url-http-parse-headers): Bind the current buffer

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index fa971da5d17d578be2a7d6c056e9376657e52049..082ceaea416f2807e00986dc1d24749a85ccd8c2 100644 (file)
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -190,7 +190,7 @@ Will not do anything if `url-show-status' is nil."
   (let* ((raw (if specified-time (current-time-string specified-time)
                (current-time-string)))
         (gmt (timezone-make-date-arpa-standard raw
-                                               (nth 1 (current-time-zone))
+                                               (current-time-zone)
                                                "GMT"))
         (parsed (timezone-parse-date gmt))
         (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist)))