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.
(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)
(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
(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)
((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
(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)