From: yamaoka <yamaoka>
Date: Fri, 10 Dec 1999 08:34:48 +0000 (+0000)
Subject: (gnus-union): Remove.
X-Git-Tag: t-gnus-6_14_0-07~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa56de5c95ddb7a4052830bb5a7b96b3b7aa18dd;p=elisp%2Fgnus.git-

(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
--- 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