(ecomplete-add-item): In Emacs, use float-time.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index fd9dfa63b6d..c2a22e3230c 100644
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -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))