From 7687182961e5889d94fbaa064dafaafe16dd1e84 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 6 Mar 2003 08:27:03 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-cus.el | 21 +++++++++------------ 2 files changed, 14 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00b6e86..1205424 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-03-06 Katsumi Yamaoka + + * gnus-cus.el (gnus-group-customize): Don't use delete-if which is + a cl run-time function. + 2003-03-06 Kevin Greiner * gnus-agent.el (gnus-agent-fetch-group-1): Added missing binding diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el index cc1006b..9de3266 100644 --- a/lisp/gnus-cus.el +++ b/lisp/gnus-cus.el @@ -393,24 +393,21 @@ DOC is a documentation string for the parameter.")) (widget-insert ".\n\n") (make-local-variable 'gnus-custom-params) - (let* ((values (if group - (gnus-info-params info) - (gnus-topic-parameters topic)))) + (let ((values (if group + (gnus-info-params info) + (gnus-topic-parameters topic)))) ;; The parameters in values may contain duplicates. This is ;; normally OK as assq returns the first. However, right here ;; every duplicate ends up being displayed. So, rather than ;; display them, remove them from the list. - (let (tmp) - (setq values (gnus-copy-sequence values) - tmp values) - - (while tmp - (setcdr tmp (delete-if (lambda (testing) (eq (caar tmp) - (car testing))) - (cdr tmp))) - (setq tmp (cdr tmp)))) + (let ((tmp (setq values (gnus-copy-sequence values))) + elem) + (while (cdr tmp) + (while (setq elem (assq (caar tmp) (cdr tmp))) + (delq elem tmp)) + (setq tmp (cdr tmp)))) (setq gnus-custom-params (apply 'widget-create 'group -- 1.7.10.4