summaryrefslogtreecommitdiffstats
path: root/init.el
diff options
context:
space:
mode:
authorMatthew Lemon <matt@matthewlemon.com>2022-11-21 17:33:26 +0000
committerMatthew Lemon <matt@matthewlemon.com>2022-11-21 17:33:26 +0000
commit7d2db854beedc19fd7afcf36253ca7d0702e163b (patch)
tree050e565a00ca7307f64c784d85f648cbac0850c4 /init.el
parent0a5df884960fe26bcce8007367cb0dedc8944b48 (diff)
notmuch config - coming on nicely
Diffstat (limited to '')
-rw-r--r--init.el43
1 files changed, 42 insertions, 1 deletions
diff --git a/init.el b/init.el
index 08c54ff..f3c5f7d 100644
--- a/init.el
+++ b/init.el
@@ -174,14 +174,55 @@
(use-package notmuch
:defer t
:config
+ (define-key notmuch-show-mode-map "S"
+ (lambda ()
+ "mark message as spam"
+ (interactive)
+ (notmuch-show-tag (list "+spam" "-inbox"))))
+ (define-key notmuch-search-mode-map "S"
+ (lambda ()
+ "mark message as spam"
+ (interactive)
+ (notmuch-search-tag (list "+spam" "-inbox"))))
+ (define-key notmuch-search-mode-map "d"
+ (lambda ()
+ "toggle deleted tag for message"
+ (interactive)
+ (if (member "deleted" (notmuch-search-get-tags))
+ (notmuch-search-tag (list "-deleted"))
+ (notmuch-search-tag (list "+deleted")))))
(setq send-mail-function 'sendmail-send-it
sendmail-program "/usr/bin/msmtp"
message-kill-buffer-on-exit t
+ notmuch-draft-folder "fastmail/Drafts"
notmuch-fcc-dirs "fastmail/Sent +sent -unread -inbox"
notmuch-search-oldest-first t
mail-specify-envelope-from t
+ message-signature "\n\n-- \nMatthew"
+ mm-text-html-renderer 'lynx
message-sendmail-envelope-from 'header
- mail-envelope-from 'header))
+ mail-envelope-from 'header
+ notmuch-saved-searches '((:name "Inbox"
+ :query "tag:inbox"
+ :count-query "tag:inbox and tag:unread"
+ :sort-order newest-first
+ :key "i")
+ (:name "Unread"
+ :query "tag:unread"
+ :sort-order newest-first
+ :key "u")
+ (:name "Sent"
+ :query "tag:sent"
+ :sort-order newest-first
+ :key "s")
+ (:name "All Mail"
+ :query "*"
+ :sort-order newest-first
+ :key "a")
+ (:name "Deleted"
+ :query "tag:deleted"
+ :sort-order newest-first
+ :key "d"))))
;; calfw
(use-package calfw-org