awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -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
(defun +notmuch/search-delete ()
(interactive)
(notmuch-search-add-tag (list "+trash" "-inbox" "-unread"))
(notmuch-search-add-tag +notmuch-delete-tags)
(notmuch-tree-next-message))
;;;###autoload
(defun +notmuch/tree-delete ()
(interactive)
(notmuch-tree-add-tag (list "+trash" "-inbox" "-unread"))
(notmuch-tree-add-tag +notmuch-delete-tags)
(notmuch-tree-next-message))
;;;###autoload
(defun +notmuch/show-delete ()
"Mark email for deletion in notmuch-show"
(interactive)
(notmuch-show-add-tag (list "+trash" "-inbox" "-unread"))
(notmuch-show-add-tag +notmuch-delete-tags)
(notmuch-show-next-thread-show))
;;;###autoload
(defun +notmuch/search-spam ()
(interactive)
(notmuch-search-add-tag (list "+spam" "-inbox" "-unread"))
(notmuch-search-add-tag +notmuch-spam-tags)
(notmuch-search-next-thread))
;;;###autoload
(defun +notmuch/tree-spam ()
(interactive)
(notmuch-tree-add-tag (list "+spam" "-inbox" "-unread"))
(notmuch-tree-add-tag +notmuch-spam-tags)
(notmuch-tree-next-message))
;;;###autoload