;;; time-date.el --- Date and time handling functions
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Masanobu Umeda <umerin@mse.kyutech.ac.jp>
;;;###autoload
(defun date-to-time (date)
- "Parse a string DATE that represents a date-time and return a time value."
+ "Parse a string DATE that represents a date-time and return a time value.
+If DATE lacks timezone information, GMT is assumed."
(condition-case ()
(apply 'encode-time
(parse-time-string
(setq start (match-end 0)
spec (match-string 1 string))
(unless (string-equal spec "%")
- ;; `assoc-string' is not available in Emacs 21. So when compiling
- ;; Gnus (`time-date.el' is part of Gnus) with Emacs 21, we get a
- ;; warning here. But `format-seconds' is not used anywhere in Gnus so
- ;; it's not a real problem. --rsteib
+ ;; `assoc-string' is not available in XEmacs or Emacs 21. So when
+ ;; compiling Gnus (`time-date.el' is part of Gnus) with XEmacs or
+ ;; Emacs 21, we get a warning here. But `format-seconds' is not
+ ;; used anywhere in Gnus so it's not a real problem. --rsteib
(or (setq match (assoc-string spec units t))
(error "Bad format specifier: `%s'" spec))
(if (assoc-string spec usedunits t)
(provide 'time-date)
-;; arch-tag: addcf07b-b20a-465b-af72-550b8ac5190f
;;; time-date.el ends here