From 87667efc0af952503b910ddb53f9ada5436e6911 Mon Sep 17 00:00:00 2001
From: "W. Trevor King" <wking@tremily.us>
Date: Wed, 2 Jan 2013 11:16:39 -0500
Subject: [PATCH] .emacs|wtk_notmuch.el: Add Notmuch configuration

---
 src/.emacs                            | 1 +
 src/.emacs.d/site-lisp/wtk_notmuch.el | 7 +++++++
 2 files changed, 8 insertions(+)
 create mode 100644 src/.emacs.d/site-lisp/wtk_notmuch.el

diff --git a/src/.emacs b/src/.emacs
index ad4d793..69b1c34 100644
--- a/src/.emacs
+++ b/src/.emacs
@@ -14,6 +14,7 @@
 (load "wtk_utf-8.el")
 (load "wtk_layout.el")
 (load "wtk_linux.el")
+(load "wtk_notmuch.el")
 (load "wtk_aspell.el")
 (load "wtk_epa.el")
 (load "wtk_org.el")
diff --git a/src/.emacs.d/site-lisp/wtk_notmuch.el b/src/.emacs.d/site-lisp/wtk_notmuch.el
new file mode 100644
index 0000000..db5b11b
--- /dev/null
+++ b/src/.emacs.d/site-lisp/wtk_notmuch.el
@@ -0,0 +1,7 @@
+(require 'notmuch)
+
+(define-key notmuch-search-mode-map "S"
+	(lambda ()
+		"mark messages in thread as spam"
+		(interactive)
+		(notmuch-search-tag '("+spam" "-inbox"))))
-- 
2.26.2