[elpa] externals/rcirc-menu f1e0d9f 04/13: rcirc-menu.el: catchup marked buffers

[Stefan Monnier]

branch: externals/rcirc-menu
commit f1e0d9f69a5bf1c401cf81b63c71b49b35cf9a5e
Author: Alex Schroeder <alex@gnu.org>
Commit: Alex Schroeder <alex@gnu.org>

    rcirc-menu.el: catchup marked buffers
    
    When catching up, check for marked buffers. If there are any, catch up
    for each of them. If there are no marked buffers, use the current
    buffer.
---
 rcirc-menu.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/rcirc-menu.el b/rcirc-menu.el
index 64c0faa..e875c3e 100644
--- a/rcirc-menu.el
+++ b/rcirc-menu.el
@@ -227,9 +227,14 @@ elements of ‘tabulated-list-entries’."
   (apply '< args))
 
 (defun rcirc-menu-catchup ()
-  "Mark the current buffer as read, i.e. no activity."
+  "Mark the current buffer or the marked buffers as read.
+This resets their activity."
   (interactive)
-  (rcirc-clear-activity (Buffer-menu-buffer t))
+  (let* ((this-buffer (list (Buffer-menu-buffer t)))
+        (marked-buffers (Buffer-menu-marked-buffers))
+        (buffers (or marked-buffers this-buffer)))
+    (dolist (buf buffers)
+      (rcirc-clear-activity buf)))
   (run-hooks 'tabulated-list-revert-hook)
   (tabulated-list-print))