* poe-18.el (current-time-zone): New function.

[elisp/apel.git] / APEL-ELS

diff --git a/APEL-ELS b/APEL-ELS
index 4b931c2..16e6816 100644 (file)
--- a/APEL-ELS
+++ b/APEL-ELS
@@ -20,4 +20,22 @@
     (setq apel-modules (cons 'time-stamp apel-modules))
   )
 
+(condition-case nil
+    (let ((load-path (delete (expand-file-name ".")
+                             (copy-sequence load-path))))
+      ;; v18 does not have timezone.el.
+      (require 'timezone)
+      ;; Is timezone.el APEL version?
+      (if (product-find 'timezone)
+         (error "timezone.el is APEL version. Install newer version."))
+      ;; Y2K test.
+      (or (string= (aref (timezone-parse-date "Sat, 1 Jan 00 00:00:00 GMT")
+                         0)
+                   "2000")
+         (error "timezone.el has Y2K problem. Install fixed version."))
+      ;; another test here.
+      )
+  (error
+   (setq apel-modules (cons 'timezone apel-modules))))
+
 ;;; APEL-ELS ends here