emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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