(gnus-secondary-method-p): Extend servers to methods before comparing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d608592..7f6e707 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2003-12-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.el (gnus-version-number): Bump.
+       (gnus-secondary-method-p): Extend servers to methods before comparing.
 
 2003-12-30 Lars Magne Ingebrigtsen <lars@ingebrigtsen.no>
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 375c3e8..e6c56ad 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3494,7 +3494,7 @@ You should probably use `gnus-find-method-for-group' instead."
     (while (and methods
                (not (gnus-method-equal
                      (gnus-server-get-method nil (car methods))
-                     gmethod)))
+                     (gnus-server-get-method nil gmethod))))
       (setq methods (cdr methods)))
     methods))