timezone y2k

[Shuhei KOBAYASHI]

(put 'timezone-parse-date ...) じゃなくて 'timezone という feature 自体
に何か目印を付けたら... と思ったのですが, product.el が導入されると
APEL 版 timezone.el では 'timezone に product 情報が付くことになるので
すね.

>>>>> In <htx3dugw3f2.fsf ＠ mulelab3.etl.go.jp>,
>>>>> tomo ＠ etl.go.jp (守岡 知彦 /  MORIOKA Tomohiko) wrote:
> 具体的にどういう問題を想定しているのかが判りませんので検討外れの答え
> をしている気もしますが（今、ちょっと精神状態が悪いのでダメ人間化が進
> 行してます(^_^;;;）、その場合はその他の部分に対しても check を行えば
> 良いんじゃないでしょうか？

こんな感じでしょうか?

(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 (get 'timezone 'product)      ; (product-find-by-feature 'timezone)
          (error "This 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 "This timezone.el has Y2K problem. Install fixed version."))
      ;; another test here.
      ;; ...
      )
  (error
   (setq apel-modules (cons 'timezone apel-modules))))

;; 元の code で load-path を bind せずに書き換えているのは何か特別な
;; 意味があるのでしょうか? (上の code の動作は未確認なもので^^;)
-- 
Shuhei KOBAYASHI