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.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 03839b0f922..3aa5d63ddc0 100644
--- 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 fa971da5d17..082ceaea416 100644
--- 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)))