diff options
| -rw-r--r-- | lisp/url/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/url/url-util.el | 2 |
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 @@ | |||
| 1 | 2007-09-21 Diane Murray <disumu@x3y2z1.net> | ||
| 2 | |||
| 3 | * url-util.el (url-get-normalized-date): Pass full timezone | ||
| 4 | information to timezone-make-date-arpa-standard, since zone name | ||
| 5 | may be unknown. | ||
| 6 | |||
| 1 | 2007-09-03 Diane Murray <disumu@x3y2z1.net> | 7 | 2007-09-03 Diane Murray <disumu@x3y2z1.net> |
| 2 | 8 | ||
| 3 | * url-http.el: (url-http-parse-headers): Bind the current buffer | 9 | * 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." | |||
| 190 | (let* ((raw (if specified-time (current-time-string specified-time) | 190 | (let* ((raw (if specified-time (current-time-string specified-time) |
| 191 | (current-time-string))) | 191 | (current-time-string))) |
| 192 | (gmt (timezone-make-date-arpa-standard raw | 192 | (gmt (timezone-make-date-arpa-standard raw |
| 193 | (nth 1 (current-time-zone)) | 193 | (current-time-zone) |
| 194 | "GMT")) | 194 | "GMT")) |
| 195 | (parsed (timezone-parse-date gmt)) | 195 | (parsed (timezone-parse-date gmt)) |
| 196 | (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist))) | 196 | (day (cdr-safe (assoc (substring raw 0 3) url-weekday-alist))) |