diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-06 01:09:32 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-06 01:09:32 +0000 |
| commit | 61c47336fea47cfbe6a47728ec8335d69bacff3c (patch) | |
| tree | b05d2302c2344bcf7de8bc5f12501ed36bc9e736 /lisp/gnus/gnus-score.el | |
| parent | a0ec382af2995fab6c903fcf112eea37caab5945 (diff) | |
| download | emacs-61c47336fea47cfbe6a47728ec8335d69bacff3c.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/gnus-score.el')
| -rw-r--r-- | lisp/gnus/gnus-score.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 26c3ca34e7b..a9c666e246e 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -916,7 +916,7 @@ EXTRA is the possible non-standard header." (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) |