# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1251861990 0
# Node ID a559806086391989938a4e2e45852cd5edc368b2
# Parent  31250b83d2bb490a5cb24f548bd1c4e8fd9dc624
(ecomplete-add-item): In Emacs, use float-time.

diff -r 31250b83d2bb -r a55980608639 lisp/gnus/ecomplete.el
--- a/lisp/gnus/ecomplete.el	Wed Sep 02 03:24:46 2009 +0000
+++ b/lisp/gnus/ecomplete.el	Wed Sep 02 03:26:30 2009 +0000
@@ -56,7 +56,9 @@
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
 	(now (string-to-number
-	      (format "%.0f" (time-to-seconds (current-time)))))
+	      (format "%.0f" (if (featurep 'xemacs)
+				 (time-to-seconds (current-time))
+			       (float-time)))))
 	entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))