* 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 d9514f6..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...)")
 
@@ -169,7 +174,7 @@
   "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
 The values are identical to those of `decode-time', but any values that are
 unknown are returned as nil."
-  (let ((time (list nil nil nil nil nil nil nil nil nil nil))
+  (let ((time (list nil nil nil nil nil nil nil nil nil))
        (temp (parse-time-tokenize (downcase string))))
     (while temp
       (let ((elt (pop temp))