diff options
| author | Lars Ingebrigtsen | 2019-07-31 15:18:03 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-31 21:47:29 +0200 |
| commit | 1ab6445bb3ed7e0ebe771692cbeda557a82b9381 (patch) | |
| tree | 50bdb3881a91ab17e3d577824eb76508beb55fab | |
| parent | 296002ba5aefa60f8a1f97c4d28808683247ce8b (diff) | |
| download | emacs-1ab6445bb3ed7e0ebe771692cbeda557a82b9381.tar.gz emacs-1ab6445bb3ed7e0ebe771692cbeda557a82b9381.zip | |
Fix time zone in previous rewrite of newsticker--decode-iso8601-date
* lisp/net/newst-backend.el (newsticker--decode-iso8601-date):
According to the tests, this function should default to the Z time
zone.
| -rw-r--r-- | lisp/net/newst-backend.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 5064610e39c..1fb7fe005ea 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el | |||
| @@ -1597,10 +1597,11 @@ This function calls `message' with arguments STRING and ARGS, if | |||
| 1597 | 1597 | ||
| 1598 | (defun newsticker--decode-iso8601-date (string) | 1598 | (defun newsticker--decode-iso8601-date (string) |
| 1599 | "Return ISO8601-STRING in format like `encode-time'. | 1599 | "Return ISO8601-STRING in format like `encode-time'. |
| 1600 | Converts from ISO-8601 to Emacs representation." | 1600 | Converts from ISO-8601 to Emacs representation. If no time zone |
| 1601 | is present, this fuction defaults to universal time." | ||
| 1601 | (if string | 1602 | (if string |
| 1602 | (condition-case nil | 1603 | (condition-case nil |
| 1603 | (encode-time (iso8601-parse string)) | 1604 | (encode-time (decoded-time-set-defaults (iso8601-parse string) 0)) |
| 1604 | (wrong-type-argument | 1605 | (wrong-type-argument |
| 1605 | (message "Cannot decode \"%s\"" string) | 1606 | (message "Cannot decode \"%s\"" string) |
| 1606 | nil)) | 1607 | nil)) |