X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9a0115abd18f219f234d6dd460cf7f5ed3c0332f..02d7069fef8fdb27847a168a05cae4afd303bc12:/lisp/gnus/ecomplete.el

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index eab8e6cdfb..cb50cce605 100644
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -1,6 +1,6 @@
 ;;; ecomplete.el --- electric completion of addresses and the like
 
-;; Copyright (C) 2006-2012  Free Software Foundation, Inc.
+;; Copyright (C) 2006-2016 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail
@@ -27,11 +27,6 @@
 (eval-when-compile
   (require 'cl))
 
-(eval-when-compile
-  (when (featurep 'xemacs)
-    ;; The `kbd' macro requires that the `read-kbd-macro' macro is available.
-    (require 'edmacro)))
-
 (defgroup ecomplete nil
   "Electric completion of email addresses and the like."
   :group 'mail)
@@ -60,11 +55,7 @@
 
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
-	(now (string-to-number
-	      (format "%.0f" (if (featurep 'emacs)
-				 (float-time)
-			       (require 'gnus-util)
-			       (gnus-float-time)))))
+	(now (string-to-number (format "%.0f" (float-time))))
 	entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))