diff options
| author | Karl Heuer | 1999-05-06 21:26:34 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-05-06 21:26:34 +0000 |
| commit | b20bb856de18f3fdd93effd191180c5a39051a70 (patch) | |
| tree | 84c856a8e27f574fb716716741c3810187ac1fd7 | |
| parent | 3ab93df33b5c683b6b57f8d291d3fc25c0878c8a (diff) | |
| download | emacs-b20bb856de18f3fdd93effd191180c5a39051a70.tar.gz emacs-b20bb856de18f3fdd93effd191180c5a39051a70.zip | |
(timezone-parse-date): Recognize new format used in internet cookies.
| -rw-r--r-- | lisp/timezone.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index a7ff21d8310..1b22bde4ee6 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el | |||
| @@ -176,6 +176,10 @@ Understands the following styles: | |||
| 176 | ;; Styles: (4) with timezone | 176 | ;; Styles: (4) with timezone |
| 177 | (setq year 3 month 2 day 1 time 4 zone 5)) | 177 | (setq year 3 month 2 day 1 time 4 zone 5)) |
| 178 | ((string-match | 178 | ((string-match |
| 179 | "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?[ \t]+\\([-+a-zA-Z0-9]+\\)" date) | ||
| 180 | ;; Styles: (5) with timezone. | ||
| 181 | (setq year 3 month 2 day 1 time 4 zone 6)) | ||
| 182 | ((string-match | ||
| 179 | "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?" date) | 183 | "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?" date) |
| 180 | ;; Styles: (5) without timezone. | 184 | ;; Styles: (5) without timezone. |
| 181 | (setq year 3 month 2 day 1 time 4 zone nil)) | 185 | (setq year 3 month 2 day 1 time 4 zone nil)) |