[Emacs-diffs] /srv/bzr/emacs/trunk r101354: gnus-start.el (gnus-method-rank): Replace equalp with equal.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101354
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 11:53:59 +0000
message:
  gnus-start.el (gnus-method-rank): Replace equalp with equal.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-start.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-05 04:09:07 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-05 11:53:59 +0000
@@ -1,5 +1,7 @@
 2010-09-05  Katsumi Yamaoka  <address@hidden>
 
+       * 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

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2010-09-05 01:08:22 +0000
+++ b/lisp/gnus/gnus-start.el   2010-09-05 11:53:59 +0000
@@ -1772,7 +1772,7 @@
     (let ((i 2))
       (block nil
        (dolist (smethod gnus-secondary-select-methods)
-         (when (equalp method smethod)
+         (when (equal method smethod)
            (return i))
          (incf i))
        i)))