(timezone-fix-time): For year values < 50, add 2000.

diff --git a/lisp/timezone.el b/lisp/timezone.el
index 56dbff02b5b314eeb570ccdc74b6a0366fd95ecb..5e0fd7f105b275376703b5ae172e2149e63e88a3 100644 (file)
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -291,7 +291,11 @@ If LOCAL is nil, it is assumed to be GMT.
 If TIMEZONE is nil, use the local time zone."
   (let* ((date   (timezone-parse-date date))
         (year   (string-to-int (aref date 0)))
-        (year   (if (< year 100) (+ year 1900) year))
+        (year   (cond ((< year 50)
+                       (+ year 2000))
+                      ((< year 100)
+                       (+ year 1900))
+                      (t year)))
         (month  (string-to-int (aref date 1)))
         (day    (string-to-int (aref date 2)))
         (time   (timezone-parse-time (aref date 3)))