gnus-start.el (gnus-method-rank): Replace equalp with equal.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f82cdaa531eaab905866f178f89f38ea64f87607..7884a3e5c0d50d1b670af726a29012f220e871c6 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2010-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-start.el (gnus-method-rank): Replace equalp with equal.
+
        * nnmh.el (nnmh-request-list-1): Bind `file'.
 
        * pop3.el (pop3-set-process-query-on-exit-flag): New function that's an

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 9458e0ed52dab667f320366e6f05ce0b30775fec..9325ddd2a23094ed0ef2d2f6889837d64c3df483 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1772,7 +1772,7 @@ If SCAN, request a scan of that group as well."
     (let ((i 2))
       (block nil
        (dolist (smethod gnus-secondary-select-methods)
-         (when (equalp method smethod)
+         (when (equal method smethod)
            (return i))
          (incf i))
        i)))