awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(notmuch): parameterize delete/spam tags

Browse Source
This commit is contained in:
Leonard Lausen
2021-11-21 13:02:18 -05:00
committed by GitHub
parent 02850dd6d7
commit 196ea03281
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
modules/email/notmuch/autoload.el
View File

@ -76,32 +76,32 @@
;;;###autoload ;;;###autoload
(defun +notmuch/search-delete () (defun +notmuch/search-delete ()
(interactive) (interactive)
(notmuch-search-add-tag (list "+trash" "-inbox" "-unread")) (notmuch-search-add-tag +notmuch-delete-tags)
(notmuch-tree-next-message)) (notmuch-tree-next-message))
;;;###autoload ;;;###autoload
(defun +notmuch/tree-delete () (defun +notmuch/tree-delete ()
(interactive) (interactive)
(notmuch-tree-add-tag (list "+trash" "-inbox" "-unread")) (notmuch-tree-add-tag +notmuch-delete-tags)
(notmuch-tree-next-message)) (notmuch-tree-next-message))
;;;###autoload ;;;###autoload
(defun +notmuch/show-delete () (defun +notmuch/show-delete ()
"Mark email for deletion in notmuch-show" "Mark email for deletion in notmuch-show"
(interactive) (interactive)
(notmuch-show-add-tag (list "+trash" "-inbox" "-unread")) (notmuch-show-add-tag +notmuch-delete-tags)
(notmuch-show-next-thread-show)) (notmuch-show-next-thread-show))
;;;###autoload ;;;###autoload
(defun +notmuch/search-spam () (defun +notmuch/search-spam ()
(interactive) (interactive)
(notmuch-search-add-tag (list "+spam" "-inbox" "-unread")) (notmuch-search-add-tag +notmuch-spam-tags)
(notmuch-search-next-thread)) (notmuch-search-next-thread))
;;;###autoload ;;;###autoload
(defun +notmuch/tree-spam () (defun +notmuch/tree-spam ()
(interactive) (interactive)
(notmuch-tree-add-tag (list "+spam" "-inbox" "-unread")) (notmuch-tree-add-tag +notmuch-spam-tags)
(notmuch-tree-next-message)) (notmuch-tree-next-message))
;;;###autoload ;;;###autoload

10
modules/email/notmuch/config.el
View File

@ -25,6 +25,16 @@ OR a shell command string such as
(defvar +notmuch-mail-folder "~/.mail/account.gmail" (defvar +notmuch-mail-folder "~/.mail/account.gmail"
"Where your email folder is located (for use with gmailieer).") "Where your email folder is located (for use with gmailieer).")
(defvar +notmuch-delete-tags '("+trash" "-inbox" "-unread")
"Tags applied to mark email for deletion.
When replacing the +trash tag by a different tag such as
+deleted, you will need to update the notmuch-saved-searches
variable accordingly.")
(defvar +notmuch-spam-tags '("+spam" "-inbox" "-unread")
"Tags applied to mark email as spam.")
;; ;;
;;; Packages ;;; Packages