X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=2871350459dc2e7b349f86e8c8b15473034b5a92;hp=10b3ea91d266e6f74fccf86b398020fb33e15b55;hb=436c98a9732ea66a134674d7ff4711b7cdd8bbf9;hpb=be05158b69d45b63999707f60b8ee0166438a944

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 10b3ea91..28713504 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1622,6 +1622,23 @@ buffer."
   (notmuch-show-archive-thread)
   (notmuch-show-next-thread))
 
+(defun notmuch-show-archive-message (&optional unarchive)
+  "Archive the current message.
+
+If a prefix argument is given, the message will be
+\"unarchived\" (ie. the \"inbox\" tag will be added instead of
+removed)."
+  (interactive "P")
+  (if unarchive
+      (notmuch-show-add-tag "inbox")
+    (notmuch-show-remove-tag "inbox")))
+
+(defun notmuch-show-archive-message-then-next ()
+  "Archive the current message, then show the next open message in the current thread."
+  (interactive)
+  (notmuch-show-archive-message)
+  (notmuch-show-next-open-message))
+
 (defun notmuch-show-stash-cc ()
   "Copy CC field of current message to kill-ring."
   (interactive)