From ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 10 Nov 2000 18:00:36 +0000 Subject: [PATCH] (timezone-make-date-arpa-standard): Autoload. (date-to-time): Use it. --- lisp/gnus/time-date.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/time-date.el b/lisp/gnus/time-date.el index ba7f81a1ed1..3bfb9a454d0 100644 --- a/lisp/gnus/time-date.el +++ b/lisp/gnus/time-date.el @@ -28,11 +28,21 @@ (require 'parse-time) +(autoload 'timezone-make-date-arpa-standard "timezone") + ;;;###autoload (defun date-to-time (date) "Convert DATE into time." (condition-case () - (apply 'encode-time (parse-time-string date)) + (apply 'encode-time + (parse-time-string + ;; `parse-time-string' isn't sufficiently general or + ;; robust. It fails to grok some of the formats that + ;; timzeone does (e.g. dodgy post-2000 stuff from some + ;; Elms) and either fails or returns bogus values. Lars + ;; reverted this change, but that loses non-trivially + ;; often for me. -- fx + (timezone-make-date-arpa-standard date))) (error (error "Invalid date: %s" date)))) (defun time-to-seconds (time)