[Emacs-diffs] emacs/lisp/gnus gnus-util.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/02 06:36:13

Modified files:
        lisp/gnus      : gnus-util.el 

Log message:
        (gnus-float-time): Make TIME optional, defaulting to current-time.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-util.el?cvsroot=emacs&r1=1.72&r2=1.73

Patches:
Index: gnus-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- gnus-util.el        2 Sep 2009 03:27:14 -0000       1.72
+++ gnus-util.el        2 Sep 2009 06:36:11 -0000       1.73
@@ -285,10 +285,11 @@
        (and (= (car fdate) (car date))
             (> (nth 1 fdate) (nth 1 date))))))
 
-(defun gnus-float-time (time)
-  "Convert time value TIME to a floating point number."
+(defun gnus-float-time (&optional time)
+  "Convert time value TIME to a floating point number.
+TIME defaults to the current time."
   (if (featurep 'xemacs)
-      (time-to-seconds time)
+      (time-to-seconds (or time (current-time)))
     (float-time time)))
 
 ;;; Keymap macros.