# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283687639 0
# Node ID 1ef61436659882c7818118e924138b023ebd9640
# Parent  6a6bf4529cad2c662cfa5e27c9fbc9e75567f308
gnus-start.el (gnus-method-rank): Replace equalp with equal.

diff -r 6a6bf4529cad -r 1ef614366598 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 04:09:07 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 11:53:59 2010 +0000
@@ -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 -r 6a6bf4529cad -r 1ef614366598 lisp/gnus/gnus-start.el
--- a/lisp/gnus/gnus-start.el	Sun Sep 05 04:09:07 2010 +0000
+++ b/lisp/gnus/gnus-start.el	Sun Sep 05 11:53:59 2010 +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)))