notmuch-show-tag-message is now completely redundant with notmuch-show-tag so we eliminate it to simplify the interface. --- emacs/notmuch-show.el | 14 ++------------ 1 files changed, 2 insertions(+), 12 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 69bca02..f174910 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -1396,7 +1396,7 @@ current thread." (defun notmuch-show-mark-read () "Mark the current message as read." - (notmuch-show-tag-message "-unread")) + (notmuch-show-tag "-unread")) ;; Functions for getting attributes of several messages in the current ;; thread. @@ -1634,16 +1634,6 @@ than only the current message." (message (format "Command '%s' exited abnormally with code %d" shell-command exit-code)))))))) -(defun notmuch-show-tag-message (&rest tag-changes) - "Change tags for the current message. - -TAG-CHANGES is a list of tag operations for `notmuch-tag'." - (let* ((current-tags (notmuch-show-get-tags)) - (new-tags (notmuch-update-tags current-tags tag-changes))) - (unless (equal current-tags new-tags) - (funcall 'notmuch-tag (notmuch-show-get-message-id) tag-changes) - (notmuch-show-set-tags new-tags)))) - (defun notmuch-show-tag (&optional tag-changes) "Change tags for the current message. @@ -1768,7 +1758,7 @@ If a prefix argument is given, the message will be removed)." (interactive "P") (let ((op (if unarchive "+" "-"))) - (notmuch-show-tag-message (concat op "inbox")))) + (notmuch-show-tag (concat op "inbox")))) (defun notmuch-show-archive-message-then-next-or-exit () "Archive the current message, then show the next open message in the current thread. -- 1.7.9.1