debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 04:18:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Don't skip read messages when they are open.

Browse source 
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).
This commit is contained in:
Carl Worth 2009-11-04 16:22:42 -08:00
parent b7366f8052
commit 3a330cb84a
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
notmuch.el
View file

@ -256,6 +256,16 @@ there are no more unread messages past the current point."
(if (not (notmuch-show-message-unread-p)) (if (not (notmuch-show-message-unread-p))
(notmuch-show-next-message))) (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 () (defun notmuch-show-previous-message ()
"Backup to the beginning of the previous message in the buffer. "Backup to the beginning of the previous message in the buffer.
@ -287,11 +297,11 @@ it."
(notmuch-show-previous-message) (notmuch-show-previous-message)
(point)))) (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." "Remove unread tag from current message, then advance to next unread message."
(interactive) (interactive)
(notmuch-show-remove-tag "unread") (notmuch-show-remove-tag "unread")
(notmuch-show-next-unread-message)) (notmuch-show-next-open-message))
(defun notmuch-show-rewind () (defun notmuch-show-rewind ()
"Do reverse scrolling compared to `notmuch-show-advance-marking-read-and-archiving' "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 Otherwise, (the end of the current message is already within the
current window), remove the \"unread\" tag (if present) from 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 Finally, if there is no further message to advance to, and this
last message is already read, then archive the entire current last message is already read, then archive the entire current
@ -339,10 +349,10 @@ which this thread was originally shown."
(if (> next (window-end)) (if (> next (window-end))
(scroll-up nil) (scroll-up nil)
(if unread (if unread
(notmuch-show-mark-read-then-next-unread-message) (notmuch-show-mark-read-then-next-open-message)
(if (notmuch-show-last-message-p) (if (notmuch-show-last-message-p)
(notmuch-show-archive-thread) (notmuch-show-archive-thread)
(notmuch-show-next-unread-message)))))) (notmuch-show-next-open-message))))))
(defun notmuch-show-markup-citations-region (beg end) (defun notmuch-show-markup-citations-region (beg end)
(goto-char beg) (goto-char beg)