Revert "Replace remove-if-not by gnus-remove-if-not"

This does not work on sequences.

This reverts commit 173afc58a02260a715d5201ed6cbbb7ba6aca57d.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54f6bd3..f792665 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,17 +12,6 @@
 
 2010-10-02  Julien Danjou  <julien@danjou.info>
 
-       * gnus-score.el (gnus-summary-score-effect): Use gnus-remove-if-not
-       rather than remove-if-not.
-
-       * gnus-group.el (gnus-group-completing-read): Use gnus-remove-if-not
-       rather than remove-if-not.
-
-       * gnus-art.el (gnus-mime-view-part-as-type): Use gnus-remove-if-not
-       rather than remove-if-not.
-
-       * gnus-util.el (gnus-remove-if-not): Add this function.
-
        * gnus-gravatar.el (gnus-gravatar-insert): Adjust character where we
        should go backward.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3b74926..8a0193b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5133,7 +5133,7 @@ available media-types."
          (let ((default (gnus-mime-view-part-as-type-internal)))
            (gnus-completing-read
             "View as MIME type"
-            (gnus-remove-if-not pred (mailcap-mime-types))
+            (remove-if-not pred (mailcap-mime-types))
             nil nil nil
             (car default)))))
   (gnus-article-check-buffer)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7596c7e..2ea5cce 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2176,7 +2176,7 @@ respectively if they are omitted."
                               (if (string-match "[^\000-\177]" group)
                                   (gnus-group-decoded-name group)
                                 group)))
-                          (gnus-remove-if-not 'symbolp collection)))
+                          (remove-if-not 'symbolp collection)))
          (group
           (gnus-completing-read (or prompt "Group") choices
                                 require-match initial-input

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index a9c666e..26c3ca3 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -916,7 +916,7 @@ EXTRA is the possible non-standard header."
   (interactive (list (gnus-completing-read "Header"
                                            (mapcar
                                             'car
-                                            (gnus-remove-if-not
+                                            (remove-if-not
                                              (lambda (x) (fboundp (nth 2 x)))
                                              gnus-header-index))
                                            t)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 77d766b..d9a7621 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11908,11 +11908,11 @@ save those articles instead."
            ((null split-name)
             (gnus-group-completing-read
              prom
-             (gnus-remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
+             (remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
              nil prefix nil default))
            ((= 1 (length split-name))
             (gnus-group-completing-read
-             prom (gnus-remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
+             prom (remove-if-not 'gnus-valid-move-group-p gnus-active-hashtb)
              nil prefix 'gnus-group-history (car split-name)))
            (t
             (gnus-completing-read

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c2e8991..d188eba 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1307,10 +1307,6 @@ This function saves the current buffer."
       (setq list (cdr list)))
     (nreverse out)))
 
-(defun gnus-remove-if-not (predicate list)
-  "Return a copy of LIST with all items not satisfying PREDICATE removed."
-  (gnus-remove-if `(lambda (item) (not (,predicate item))) list))
-
 (if (fboundp 'assq-delete-all)
     (defalias 'gnus-delete-alist 'assq-delete-all)
   (defun gnus-delete-alist (key alist)