# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854342611 0
# Node ID eca5dfcd481d552c4c03dbbe13747e648f40e493
# Parent  5a800a9d903b08659d76a8b71129354de1f8e923
(timezone-parse-date): Treat unknown month name
like any other unrecognized format.

diff -r 5a800a9d903b -r eca5dfcd481d lisp/timezone.el
--- a/lisp/timezone.el	Mon Jan 27 02:40:13 1997 +0000
+++ b/lisp/timezone.el	Mon Jan 27 05:23:31 1997 +0000
@@ -200,11 +200,14 @@
 		    (substring date
 			       (match-beginning month)
 			       (+ (match-beginning month) 2))
- 	          (let ((string (substring date
-				 (match-beginning month)
-				 (+ (match-beginning month) 3))))
-		    (int-to-string
-		     (cdr (assoc (upcase string) timezone-months-assoc))))))
+ 	          (let* ((string (substring date
+					    (match-beginning month)
+					    (+ (match-beginning month) 3)))
+			 (monthnum
+			  (cdr (assoc (upcase string) timezone-months-assoc))))
+		    (if monthnum
+			(int-to-string monthnum)
+		      nil))))
 	  (setq day
 		(substring date (match-beginning day) (match-end day)))
 	  (setq time
@@ -213,7 +216,7 @@
 	(setq zone
 	      (substring date (match-beginning zone) (match-end zone))))
     ;; Return a vector.
-    (if year
+    (if (and year month)
 	(vector year month day time zone)
       (vector "0" "0" "0" "0" nil))
     ))