gnus-start.el (gnus-method-rank): Get info for virtual groups last.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7884a3e5c0d50d1b670af726a29012f220e871c6..792a043ba62fe66732786f72d67bdf7ff7a68155 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-start.el (gnus-method-rank): Get info for virtual groups last.
+
 2010-09-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-method-rank): Replace equalp with equal.

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 9325ddd2a23094ed0ef2d2f6889837d64c3df483..9a923ff4d32e55e5b75e862a4cfab29ad8ea8b05 100644 (file)
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1764,6 +1764,9 @@ If SCAN, request a scan of that group as well."
 
 (defun gnus-method-rank (type method)
   (cond
+   ;; Get info for virtual groups last.
+   ((eq (car method) 'nnvirtual)
+    200)
    ((eq type 'primary)
     1)
    ;; Compute the rank of the secondary methods based on where they