diff options
| author | Dave Love <fx@gnu.org> | 2000-11-10 18:00:36 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-11-10 18:00:36 +0000 |
| commit | ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6 (patch) | |
| tree | 2f520afbcf5e8b61e7b3e1d6750d0970eb48d0e7 /lisp/gnus/time-date.el | |
| parent | 9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3 (diff) | |
| download | emacs-ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6.tar.gz emacs-ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6.tar.bz2 emacs-ce2a8a6a938b759d84aa33eb6e06e0e0109b64b6.zip | |
(timezone-make-date-arpa-standard): Autoload.
(date-to-time): Use it.
Diffstat (limited to 'lisp/gnus/time-date.el')
| -rw-r--r-- | lisp/gnus/time-date.el | 12 |
1 files changed, 11 insertions, 1 deletions
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) |