debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-28 13:44:12 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: add support for reversing notmuch-show-mark-read tag changes

Browse source 
Since marking a message as read can now be a user customized set of
tag changes, make reversing this easier. Allow a prefix argument to
notmuch-show-mark-read to reverse the marking as read, similar to the
unarchiving in notmuch-show-archive-message.

While at it, update the relevant documentation to match that of other
automatic tagging (i.e. archive and reply).
This commit is contained in:
Jani Nikula 2012-09-06 18:32:42 +03:00 committed by David Bremner
parent 1548751041
commit 8a22e28750
1 changed files with 20 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
emacs/notmuch-show.el
View file

@ -184,8 +184,15 @@ provided with an MLA argument nor `completing-read' input."
:group 'notmuch-show) :group 'notmuch-show)
(defcustom notmuch-show-mark-read-tags '("-unread") (defcustom notmuch-show-mark-read-tags '("-unread")
"List of tags to apply when message is read, ie. shown in notmuch-show "List of tag changes to apply to a message when it is marked as read.
buffer."
Tags starting with \"+\" (or not starting with either \"+\" or
\"-\") in the list will be added, and tags starting with \"-\"
will be removed from the message being marked as read.
For example, if you wanted to remove an \"unread\" tag and add a
\"read\" tag (which would make little sense), you would set:
(\"-unread\" \"+read\")"
:type '(repeat string) :type '(repeat string)
:group 'notmuch-show) :group 'notmuch-show)
@ -1390,10 +1397,18 @@ current thread."
"Are the headers of the current message visible?" "Are the headers of the current message visible?"
(notmuch-show-get-prop :headers-visible)) (notmuch-show-get-prop :headers-visible))
(defun notmuch-show-mark-read () (defun notmuch-show-mark-read (&optional unread)
"Apply `notmuch-show-mark-read-tags' to the message." "Mark the current message as read.
Mark the current message as read by applying the tag changes in
`notmuch-show-mark-read-tags' to it (remove the \"unread\" tag by
default). If a prefix argument is given, the message will be
marked as unread, i.e. the tag changes in
`notmuch-show-mark-read-tags' will be reversed."
(interactive "P")
(when notmuch-show-mark-read-tags (when notmuch-show-mark-read-tags
(apply 'notmuch-show-tag-message notmuch-show-mark-read-tags))) (apply 'notmuch-show-tag-message
(notmuch-tag-change-list notmuch-show-mark-read-tags unread))))
;; Functions for getting attributes of several messages in the current ;; Functions for getting attributes of several messages in the current
;; thread. ;; thread.