2001-09-07 Simon Josefsson <jas@extundo.com>

	* gnus-group.el (gnus-group-sort-groups): Unmark all groups.
	(gnus-group-sort-selected-groups): Ditto.  Suggested by Harry
	Putnam <reader@newsguy.com>.
	(gnus-group-sort-selected-groups): Touch dribble file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 374039c..ffca2d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-07  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-group.el (gnus-group-sort-groups): Unmark all groups.
+       (gnus-group-sort-selected-groups): Ditto.  Suggested by Harry
+       Putnam <reader@newsguy.com>.
+       (gnus-group-sort-selected-groups): Touch dribble file.
+
 2001-09-07 Raja R Harinath  <harinath@cs.umn.edu>
 
        * nnml.el (nnml-filenames-are-evil): New variable.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index d4857a0..b6fac29 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2625,6 +2625,7 @@ If REVERSE (the prefix), reverse the sorting order."
   (interactive (list gnus-group-sort-function current-prefix-arg))
   (funcall gnus-group-sort-alist-function
           (gnus-make-sort-function func) reverse)
+  (gnus-group-unmark-all-groups)
   (gnus-group-list-groups)
   (gnus-dribble-touch))
 
@@ -2691,7 +2692,9 @@ If REVERSE, sort in reverse order."
   (let ((groups (gnus-group-process-prefix n)))
     (funcall gnus-group-sort-selected-function
             groups (gnus-make-sort-function func) reverse)
-    (gnus-group-list-groups)))
+    (gnus-group-unmark-all-groups)
+    (gnus-group-list-groups)
+    (gnus-dribble-touch)))
 
 (defun gnus-group-sort-selected-flat (groups func reverse)
   (let (entries infos)