1037 |
(set-buffer gnus-group-buffer) |
(set-buffer gnus-group-buffer) |
1038 |
(eq major-mode 'gnus-group-mode)))) |
(eq major-mode 'gnus-group-mode)))) |
1039 |
|
|
|
(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))) |
|
|
|
|
1040 |
(defun gnus-remove-if (predicate list) |
(defun gnus-remove-if (predicate list) |
1041 |
"Return a copy of LIST with all items satisfying PREDICATE removed." |
"Return a copy of LIST with all items satisfying PREDICATE removed." |
1042 |
(let (out) |
(let (out) |