(gnus-union): Remove.

(gnus-ems-redefine): Don't call it; don't require `gnus-ems'.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c3f125e..5d6d6e2 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -37,7 +37,6 @@
 (require 'nnheader)
 (require 'message)
 (require 'time-date)
-(require 'gnus-ems)
 
 (eval-and-compile
   (autoload 'rmail-insert-rmail-file-header "rmail")
@@ -1011,19 +1010,6 @@ ARG is passed to the first function."
       (while (search-backward "\\." nil t)
        (delete-char 1)))))
 
-(defun gnus-union (a b)
-  "Add members of list A to list B if they are not equal to items already
-in B.  This function is copied from `shadow-union' in file shadowfile.el.
-It is faster than cl-`union' and it uses `member' even though cl-`union'
-uses `memq' for comparing each element."
-  (if (null a)
-      b
-    (if (member (car a) b)
-       (gnus-union (cdr a) b)
-      (gnus-union (cdr a) (cons (car a) b)))))
-
-(gnus-ems-redefine)
-
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here