(error "%s is not supported yet" suffix)))))
((string-match "[0-9]+-[A-Za-z]+-[0-9]+" description)
(timezone-fix-time
- (concat (elmo-replace-in-string description "-" " ") " 0:00")
- nil nil))))
+ (concat (elmo-replace-in-string description "-" " ") " 0:0")
+ (current-time-zone) nil))
+ ((string-match "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)" description)
+ (vector (string-to-number (match-string 1 description))
+ (string-to-number (match-string 2 description))
+ (string-to-number (match-string 3 description))
+ 0 0 0
+ (current-time-zone)))))
(defun elmo-datevec-substitute (datevec1 datevec2)
(if (/= (aref datevec2 2) 0)
(setq p 1)
(while (< p month)
(setq days (+ days (timezone-last-day-of-month p year)))
- (setq p (+ p 1))
- )
+ (setq p (+ p 1)))
(setq days (+ days mday))
(aref wday (% days 7))))
(aref (, datevec) 0)
(aref (, datevec) 1)
(aref (, datevec) 2)
- (aref (, datevec) 3))))
+ (timezone-make-time-string
+ (aref (, datevec) 3)
+ (aref (, datevec) 4)
+ (aref (, datevec) 5)))))
(require 'product)
(product-provide (provide 'elmo-date) (require 'elmo-version))