From: yamaoka <yamaoka>
Date: Fri, 10 Dec 1999 06:57:52 +0000 (+0000)
Subject: (gnus-ems-redefine): Call it.
X-Git-Tag: t-gnus-6_14_0-07~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8396a267a9b78ce0ec698863fe387cb79a26bee0;p=elisp%2Fgnus.git-

(gnus-ems-redefine): Call it.
(gnus-union): Fix doc string.
---

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 54f73e0..1042c6d 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1011,14 +1011,18 @@ ARG is passed to the first function."
 	(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."
+  "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