X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-date.el;h=ea2f0e577f9575ef74de0c322bc1f97b9908433e;hb=4e796a3f149bcb0aa9824d1cd26285503c35339d;hp=8bd1b3b4270c5892cb7457fe2952bda32a39478c;hpb=24bfb6f5cbe757f3fd4d7412a0a2dd930fb32b95;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-date.el b/elmo/elmo-date.el
index 8bd1b3b..ea2f0e5 100644
--- a/elmo/elmo-date.el
+++ b/elmo/elmo-date.el
@@ -129,7 +129,13 @@ Otherwise treat \\ in NEWTEXT string as special:
    ((string-match "[0-9]+-[A-Za-z]+-[0-9]+" description)
     (timezone-fix-time
      (concat (elmo-replace-in-string description "-" " ") " 0:0")
-     (current-time-zone) nil))))
+     (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)