Mercurial > emacs

changeset 110203:1ef614366598

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-start.el (gnus-method-rank): Replace equalp with equal.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 11:53:59 +0000
parents 6a6bf4529cad
children 2ca24e39c16d
files lisp/gnus/ChangeLog lisp/gnus/gnus-start.el
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)))