From 8396a267a9b78ce0ec698863fe387cb79a26bee0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 10 Dec 1999 06:57:52 +0000 Subject: [PATCH] (gnus-ems-redefine): Call it. (gnus-union): Fix doc string. --- lisp/gnus-util.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 1.7.10.4