From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Aug 1997 17:45:55 +0000 (+0000)
Subject: (timezone-parse-date): Handle additional style (9).
X-Git-Tag: emacs-20.1~756
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43776ca0c9936c55d5b1c4c2cba664b65d011298;p=emacs.git

(timezone-parse-date): Handle additional style (9).
---

diff --git a/lisp/timezone.el b/lisp/timezone.el
index 949a7f12dc2..122b986e0d5 100644
--- a/lisp/timezone.el
+++ b/lisp/timezone.el
@@ -131,7 +131,8 @@ Understands the following styles:
  (5) 22-AUG-1993 10:59:12.82
  (6) Thu, 11 Apr 16:17:12 91 [MET]
  (7) Mon, 6  Jul 16:47:20 T 1992 [MET]
- (8) 1996-06-24 21:13:12 [GMT]"
+ (8) 1996-06-24 21:13:12 [GMT]
+ (9) 1996-06-24 21:13-ZONE"
  ;; Get rid of any text properties.
   (and (stringp date)
        (or (text-properties-at 0 date)
@@ -182,6 +183,10 @@ Understands the following styles:
 	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date)
 	   ;; Styles: (8) with timezone.
 	   (setq year 1 month 2 day 3 time 4 zone 5))
+	  ((string-match
+	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+\\)[ \t]*\\([-+a-zA-Z0-9:]+\\)" date)
+	   ;; Styles: (8) with timezone with a colon in it.
+	   (setq year 1 month 2 day 3 time 4 zone 5))
 	  ((string-match
 	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date)
 	   ;; Styles: (8) without timezone.