Importing pgnus-0.22.

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

diff --git a/lisp/time-date.el b/lisp/time-date.el
index 4f07bbc..b3a50f1 100644 (file)
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -116,6 +116,13 @@ The Gregorian date Sunday, December 31, 1bce is imaginary."
        (- (/ (1- year) 100))           ;       - century years
        (/ (1- year) 400))))            ;       + Gregorian leap years
 
+(defun safe-date-to-time (date)
+  "Parse DATE and return a time structure.
+If DATE is malformed, a zero time will be returned."
+  (condition-case ()
+      (date-to-time date)
+    (error '(0 0))))
+
 (provide 'time-date)
 
 ;;; time-date.el ends here