Add the mu4e-view-mark-and-next function.

2025-10-22 10:35:43 +02:00
parent b021b1e85c
commit b177bb1589
1 changed files with 7 additions and 0 deletions
--- a/mu4e/mu4e-view.el
+++ b/mu4e/mu4e-view.el
@ -389,6 +389,13 @@ list."
      (mu4e-view-mark-for-unmark)
    (mu4e-message "Unmarking needs to be done in the header list view")))

+(defun mu4e-view-mark-and-next (mark)
+  "Set MARK on the current message.
+  Then, move to the next message."
+  (interactive)
+  (mu4e--view-in-headers-context
+   (mu4e-headers-mark-and-next mark)))
+
 (defmacro mu4e--view-defun-mark-for (mark)
  "Define a function mu4e-view-mark-for- MARK."
  (let ((funcname (intern (format "mu4e-view-mark-for-%s" mark)))