From 300d51be8bc7514af317c1e721ae9dadf69fcd4e Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 7 Sep 2001 18:20:47 +0000 Subject: [PATCH] 2001-09-07 Simon Josefsson * gnus-group.el (gnus-group-sort-groups): Unmark all groups. (gnus-group-sort-selected-groups): Ditto. Suggested by Harry Putnam . (gnus-group-sort-selected-groups): Touch dribble file. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-group.el | 5 ++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 374039c01..ffca2d356 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-09-07 Simon Josefsson + + * gnus-group.el (gnus-group-sort-groups): Unmark all groups. + (gnus-group-sort-selected-groups): Ditto. Suggested by Harry + Putnam . + (gnus-group-sort-selected-groups): Touch dribble file. + 2001-09-07 Raja R Harinath * nnml.el (nnml-filenames-are-evil): New variable. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index d4857a096..b6fac29cf 100644 --- 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) -- 2.34.1