.emacs|wtk_notmuch.el: Add Notmuch configuration

diff --git a/src/.emacs b/src/.emacs
index ad4d793c03c4cdf1009cc0ec3ecafabb9f0c1f31..69b1c3489077dab567f9a2a1b3c50fac33d5b3d1 100644 (file)
--- 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 (file)
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"))))