From 8753ddeed0c759c971e74b586cedd0b6ed6d738c Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 4 Oct 2005 22:51:06 +0000 Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-574 Merge from gnus--rel--5.10 2005-10-04 Reiner Steib * lisp/gnus/mm-url.el (mm-url-predefined-programs): Add switches for curl. * lisp/gnus/gnus-util.el (gnus-remove-duplicates): Remove. * lisp/gnus/nnmail.el (nnmail-article-group): Use mm-delete-duplicates instead of gnus-remove-duplicates. * lisp/gnus/message.el (message-remove-duplicates): Remove. (message-idna-to-ascii-rhs-1): Use mm-delete-duplicates instead of message-remove-duplicates. * lisp/gnus/mm-util.el (mm-delete-duplicates): Use `delete-dups' if available, else use implementation from `delete-dups'. --- lisp/gnus/gnus-util.el | 8 -------- 1 file changed, 8 deletions(-) (limited to 'lisp/gnus/gnus-util.el') diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 5556a815d2a..f7fb279f20f 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1037,14 +1037,6 @@ This function saves the current buffer." (set-buffer gnus-group-buffer) (eq major-mode 'gnus-group-mode)))) -(defun gnus-remove-duplicates (list) - (let (new) - (while list - (or (member (car list) new) - (setq new (cons (car list) new))) - (setq list (cdr list))) - (nreverse new))) - (defun gnus-remove-if (predicate list) "Return a copy of LIST with all items satisfying PREDICATE removed." (let (out) -- cgit v1.2.1