# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 853802597 0
# Node ID b0961ba869d695367bde200dfdb0bf0460dc6c5b
# Parent  04ad9edd12b327af41d382edc092007f845c9192
(timezone-parse-date): Handle 1-digit year.

diff -r 04ad9edd12b3 -r b0961ba869d6 lisp/timezone.el
--- a/lisp/timezone.el	Mon Jan 20 09:03:05 1997 +0000
+++ b/lisp/timezone.el	Mon Jan 20 23:23:17 1997 +0000
@@ -190,8 +190,10 @@
 	  (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.