(timezone-parse-date): Handle 1-digit year.

diff --git a/lisp/timezone.el b/lisp/timezone.el
index b461948896098f87ca4fa069a052e5b30caaa3d6..c26adf78702bc8c8e1696aad0e2259583dbdf8e8 100644 (file)
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -190,8 +190,10 @@ Understands the following styles:
          (setq year
                (substring date (match-beginning year) (match-end year)))
          ;; It is now Dec 1992.  8 years before the end of the World.
-         (if (< (length year) 4)
-             (setq year (concat "19" (substring year -2 nil))))
+         (if (= (length year) 1)
+             (setq year (concat "190" (substring year -1 nil)))
+           (if (< (length year) 4)
+               (setq year (concat "19" (substring year -2 nil)))))
           (setq month
                (if (= (aref date (+ (match-beginning month) 2)) ?-)
                    ;; Handle numeric months, spanning exactly two digits.