gnus-group.el (gnus-group-list-(limit|flush|plus)-map): Allow limiting, flushing...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 501ff5b59d067c68411e1a6937464938e7221a42..467de11ceee450cb1ad31ccc4828fa9591179e5f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2011-09-12  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * gnus-group.el (gnus-group-list-limit-map, gnus-group-list-flush-map)
+       (gnus-group-list-plus-map): Allow limiting, flushing and plusing ticked
+       articles.
+
 2011-09-11  Chong Yidong  <cyd@stupidchicken.com>
 
        * message.el (message-pop-to-buffer): Default to switch-to-buffer.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index f6cf7248a27d963b19df737c6dcf38761f576d9b..720881acd98617d39a175866c8d761cc124eb804 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -710,7 +710,8 @@ simple manner.")
   "M"  gnus-group-list-limit
   "l"  gnus-group-list-limit
   "c"  gnus-group-list-limit
-  "?"  gnus-group-list-limit)
+  "?"  gnus-group-list-limit
+  "!"  gnus-group-list-limit)
 
 (gnus-define-keys (gnus-group-list-flush-map "f" gnus-group-list-map)
   "k"  gnus-group-list-flush
@@ -722,7 +723,8 @@ simple manner.")
   "M"  gnus-group-list-flush
   "l"  gnus-group-list-flush
   "c"  gnus-group-list-flush
-  "?"  gnus-group-list-flush)
+  "?"  gnus-group-list-flush
+  "!"  gnus-group-list-flush)
 
 (gnus-define-keys (gnus-group-list-plus-map "p" gnus-group-list-map)
   "k"  gnus-group-list-plus
@@ -734,7 +736,8 @@ simple manner.")
   "M"  gnus-group-list-plus
   "l"  gnus-group-list-plus
   "c"  gnus-group-list-plus
-  "?"  gnus-group-list-plus)
+  "?"  gnus-group-list-plus
+  "!"  gnus-group-list-plus)
 
 (gnus-define-keys (gnus-group-score-map "W" gnus-group-mode-map)
   "f" gnus-score-flush-cache