From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Sun, 5 Sep 2010 11:53:59 +0000 (+0000)
Subject: gnus-start.el (gnus-method-rank): Replace equalp with equal.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~74
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3cf628e8ece16ccf92ab01b2e8930de4eac621e9;p=emacs.git

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f82cdaa531e..7884a3e5c0d 100644
--- 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 9458e0ed52d..9325ddd2a23 100644
--- 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)))