mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(timezone-make-date-arpa-standard): Autoload.

Browse Source 
(date-to-time): Use it.
This commit is contained in:
Dave Love 2000-11-10 18:00:36 +00:00
parent 9e30862d6e
commit ce2a8a6a93
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/gnus/time-date.el
View File

@ -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)