This adds a function which tests for unread. A message is deemed unread if applying `notmuch-show-mark-read-tags' would change the message's tags. --- emacs/notmuch-show.el | 11 +++++++++++ 1 files changed, 11 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 784644c..a135e79 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1510,6 +1510,17 @@ current thread." "Are the headers of the current message visible?" (notmuch-show-get-prop :headers-visible)) +(defun notmuch-show-unread-p () + "Return t if current message is unread. + +Returns t unless applying `notmuch-show-mark-read-tags' would be +a no-op" + (when notmuch-show-mark-read-tags + (let* ((current-tags (notmuch-show-get-tags)) + (tag-changes (notmuch-tag-change-list notmuch-show-mark-read-tags)) + (new-tags (notmuch-update-tags current-tags tag-changes))) + (not (equal current-tags new-tags))))) + (put 'notmuch-show-mark-read 'notmuch-prefix-doc "Mark the current message as unread.") (defun notmuch-show-mark-read (&optional unread) -- 1.7.9.1