From 3a330cb84a4f42d0013a772609fd10330a8413b0 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 4 Nov 2009 16:22:42 -0800 Subject: [PATCH] notmuch.el: Don't skip read messages when they are open. More magic for the magic space bar: If a thread is entirely open, (such as when viewing an old thread where every message is read), the space bar now visits each message in turn (rather than skipping all of the unread messages). --- notmuch.el | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/notmuch.el b/notmuch.el index 68a01187..50e573dd 100644 --- a/notmuch.el +++ b/notmuch.el @@ -256,6 +256,16 @@ there are no more unread messages past the current point." (if (not (notmuch-show-message-unread-p)) (notmuch-show-next-message))) +(defun notmuch-show-next-open-message () + "Advance to the the next message which is not hidden. + +If read messages are currently hidden, advance to the next unread +message. Otherwise, advance to the next message." + (if (or (memq 'notmuch-show-body-read buffer-invisibility-spec) + (assq 'notmuch-show-body-read buffer-invisibility-spec)) + (notmuch-show-next-unread-message) + (notmuch-show-next-message))) + (defun notmuch-show-previous-message () "Backup to the beginning of the previous message in the buffer. @@ -287,11 +297,11 @@ it." (notmuch-show-previous-message) (point)))) -(defun notmuch-show-mark-read-then-next-unread-message () +(defun notmuch-show-mark-read-then-next-open-message () "Remove unread tag from current message, then advance to next unread message." (interactive) (notmuch-show-remove-tag "unread") - (notmuch-show-next-unread-message)) + (notmuch-show-next-open-message)) (defun notmuch-show-rewind () "Do reverse scrolling compared to `notmuch-show-advance-marking-read-and-archiving' @@ -326,7 +336,7 @@ scroll by a near screenful to read more of the message. Otherwise, (the end of the current message is already within the current window), remove the \"unread\" tag (if present) from the -current message and advance to the next message. +current message and advance to the next open message. Finally, if there is no further message to advance to, and this last message is already read, then archive the entire current @@ -339,10 +349,10 @@ which this thread was originally shown." (if (> next (window-end)) (scroll-up nil) (if unread - (notmuch-show-mark-read-then-next-unread-message) + (notmuch-show-mark-read-then-next-open-message) (if (notmuch-show-last-message-p) (notmuch-show-archive-thread) - (notmuch-show-next-unread-message)))))) + (notmuch-show-next-open-message)))))) (defun notmuch-show-markup-citations-region (beg end) (goto-char beg) -- 2.43.0