Mercurial > emacs

diff lisp/gnus/gnus-score.el @ 110779:9d935b7bf464

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate `remove-if-not' that is a cl function. gnus-util.el (gnus-remove-if): Allow hash table. gnus-util.el (gnus-remove-if-not): New function. gnus-art.el (gnus-mime-view-part-as-type): Replace remove-if-not with gnus-remove-if-not. gnus-score.el (gnus-summary-score-effect): Replace remove-if-not with gnus-remove-if-not. gnus-sum.el (gnus-read-move-group-name): Replace remove-if-not with gnus-remove-if-not. gnus-group.el (gnus-group-completing-read): Regard collection as a hash table if it is not a list.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 06 Oct 2010 01:09:32 +0000
parents 2b8ece636433
children 417b1e4d63cd
line wrap: on
line diff
--- a/lisp/gnus/gnus-score.el	Tue Oct 05 23:42:01 2010 +0000
+++ b/lisp/gnus/gnus-score.el	Wed Oct 06 01:09:32 2010 +0000
@@ -916,7 +916,7 @@
   (interactive (list (gnus-completing-read "Header"
                                            (mapcar
                                             'car
-                                            (remove-if-not
+                                            (gnus-remove-if-not
                                              (lambda (x) (fboundp (nth 2 x)))
                                              gnus-header-index))
                                            t)