[elpa] scratch/rcirc-menu b8187ee: rcirc-menu.el: catchup marked buffers

[Alex Schroeder]

branch: scratch/rcirc-menu
commit b8187eec0923af70cc5a51df0e4e2308f5924f49
Author: Alex Schroeder <address@hidden>
Commit: Alex Schroeder <address@hidden>

    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.
---
 packages/rcirc-menu/rcirc-menu.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/rcirc-menu/rcirc-menu.el 
b/packages/rcirc-menu/rcirc-menu.el
index 64c0faa..e875c3e 100644
--- a/packages/rcirc-menu/rcirc-menu.el
+++ b/packages/rcirc-menu/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))