diff options
| -rw-r--r-- | lisp/timezone.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index 56dbff02b5b..5e0fd7f105b 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el | |||
| @@ -291,7 +291,11 @@ If LOCAL is nil, it is assumed to be GMT. | |||
| 291 | If TIMEZONE is nil, use the local time zone." | 291 | If TIMEZONE is nil, use the local time zone." |
| 292 | (let* ((date (timezone-parse-date date)) | 292 | (let* ((date (timezone-parse-date date)) |
| 293 | (year (string-to-int (aref date 0))) | 293 | (year (string-to-int (aref date 0))) |
| 294 | (year (if (< year 100) (+ year 1900) year)) | 294 | (year (cond ((< year 50) |
| 295 | (+ year 2000)) | ||
| 296 | ((< year 100) | ||
| 297 | (+ year 1900)) | ||
| 298 | (t year))) | ||
| 295 | (month (string-to-int (aref date 1))) | 299 | (month (string-to-int (aref date 1))) |
| 296 | (day (string-to-int (aref date 2))) | 300 | (day (string-to-int (aref date 2))) |
| 297 | (time (timezone-parse-time (aref date 3))) | 301 | (time (timezone-parse-time (aref date 3))) |