;; Modified 4 October 1999 by Yuuichi Teranishi so that it will
;; work with old GNUS 3.14.4 under version 18 of Emacs.
-;; Modified 5 October 1999 by Yuuichi Teranishi to fix y2k problem
-;; of timezone-parse-date function.
-
;;; Code:
(defvar timezone-world-timezones
(setq timezone (string-to-int timezone)))
;; Taking account of minute in timezone.
;; HHMM -> MM
- (let* ((abszone (timezone-abs timezone))
+ (let* ((abszone (abs timezone))
(minutes (+ (* 60 (/ abszone 100)) (% abszone 100))))
(if (< timezone 0) (- minutes) minutes))))
(t 0)))
(diff (- (timezone-zone-to-minute timezone)
(timezone-zone-to-minute local)))
(minute (+ minute diff))
- (hour-fix (timezone-floor minute 60)))
+ (hour-fix (floor minute 60)))
(setq hour (+ hour hour-fix))
(setq minute (- minute (* 60 hour-fix)))
;; HOUR may be larger than 24 or smaller than 0.
(- (/ (1- year) 100));; - century years
(/ (1- year) 400)));; + Gregorian leap years
-(defun timezone-abs (n)
- "Return the absolute value of N."
- (if (fboundp 'abs)
- (abs n)
- (if (< n 0) (- n) n)))
-
-(defun timezone-floor (n &optional divisor)
- "Return the largest integer no grater than N.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
- (if (fboundp 'floor)
- (floor n divisor)
- (if (null divisor)
- (setq divisor 1))
- (if (< n 0)
- (- (/ (- divisor 1 n) divisor))
- (/ n divisor))))
+;;; @ End.
+;;;
+(require 'product)
(product-provide (provide 'timezone) (require 'apel-ver))
;;; timezone.el ends here