From 3cf628e8ece16ccf92ab01b2e8930de4eac621e9 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sun, 5 Sep 2010 11:53:59 +0000 Subject: [PATCH] gnus-start.el (gnus-method-rank): Replace equalp with equal. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/gnus-start.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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 + * 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))) -- 2.39.2