* lisp/message.el (message-send-mail): Remove a misplaced

[elisp/gnus.git-] / lisp / parse-time.el

diff --git a/lisp/parse-time.el b/lisp/parse-time.el
index 48a0586..038541c 100644 (file)
--- a/lisp/parse-time.el
+++ b/lisp/parse-time.el
@@ -162,6 +162,11 @@
                        (= (length elt) 4)
                        (= (aref elt 1) ?:)))
      [0 1] [2 4] ,#'(lambda () 0))
+    ((2 1 0)
+     ,#'(lambda () (and (stringp elt)
+                       (= (length elt) 7)
+                       (= (aref elt 1) ?:)))
+     [0 1] [2 4] [5 7])
     ((5) (70 99) ,#'(lambda () (+ 1900 elt))))
   "(slots predicate extractor...)")