From: Glenn Morris <rgm@gnu.org>
Date: Fri, 21 Sep 2007 02:53:08 +0000 (+0000)
Subject: Diane Murray  <disumu at x3y2z1.net>
X-Git-Tag: emacs-pretest-22.1.90~767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbc09406ca6ee155d2e999f9f2736cccfdbf39e5;p=emacs.git

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