Avoid cl.el convenience functions.

* gnus.el (gnus-sloppily-equal-method-parameters): Use copy-sequence
instead of the cl.el copy-list.
(gnus-sloppily-equal-method-parameters): Use equal instead of the cl
equalp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9801f21..cda6687 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-09-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.el (gnus-sloppily-equal-method-parameters): Use copy-sequence
+       instead of the cl.el copy-list.
+       (gnus-sloppily-equal-method-parameters): Use equal instead of the cl
+       equalp.
+
 2010-09-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gmm-utils.el (gmm-tool-bar-from-list): Always use tool-bar-local-item

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ba790fb..5ec084e 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3694,8 +3694,8 @@ that that variable is buffer-local to the summary buffers."
 
 (defsubst gnus-sloppily-equal-method-parameters (m1 m2)
   ;; Check parameters for sloppy equalness.
-  (let ((p1 (copy-list (cddr m1)))
-       (p2 (copy-list (cddr m2)))
+  (let ((p1 (copy-sequence (cddr m1)))
+       (p2 (copy-sequence (cddr m2)))
        e1 e2)
     (block nil
       (while (setq e1 (pop p1))
@@ -3703,7 +3703,7 @@ that that variable is buffer-local to the summary buffers."
          ;; The parameter doesn't exist in p2.
          (return nil))
        (setq p2 (delq e2 p2))
-       (unless (equalp e1 e2)
+       (unless (equal e1 e2)
          (if (not (and (stringp (cadr e1))
                        (stringp (cadr e2))))
              (return nil)