diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7884a3e5c0d..792a043ba62 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-start.el (gnus-method-rank): Get info for virtual groups last. | ||
| 4 | |||
| 1 | 2010-09-05 Katsumi Yamaoka <yamaoka@jpl.org> | 5 | 2010-09-05 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 6 | ||
| 3 | * gnus-start.el (gnus-method-rank): Replace equalp with equal. | 7 | * 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 9325ddd2a23..9a923ff4d32 100644 --- 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." | |||
| 1764 | 1764 | ||
| 1765 | (defun gnus-method-rank (type method) | 1765 | (defun gnus-method-rank (type method) |
| 1766 | (cond | 1766 | (cond |
| 1767 | ;; Get info for virtual groups last. | ||
| 1768 | ((eq (car method) 'nnvirtual) | ||
| 1769 | 200) | ||
| 1767 | ((eq type 'primary) | 1770 | ((eq type 'primary) |
| 1768 | 1) | 1771 | 1) |
| 1769 | ;; Compute the rank of the secondary methods based on where they | 1772 | ;; Compute the rank of the secondary methods based on where they |