+ (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)))))