Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make mu4e move messages to trash without marking them as such

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-08-09 05:21:44 -07:00
parent 20933e207d
commit f316065c93
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
init.el
View File

@ -924,8 +924,7 @@ COMMAND and COMINT are like `compile'."
(defun my/setup-cmake-ts-mode () (defun my/setup-cmake-ts-mode ()
"Setup `cmake-ts-mode' buffers." "Setup `cmake-ts-mode' buffers."
(setq-local indent-line-function #'cmake-indent)) (setq-local indent-line-function #'cmake-indent))
(add-hook 'cmake-ts-mode-hook #'my/setup-cmake-ts-mode) (add-hook 'cmake-ts-mode-hook #'my/setup-cmake-ts-mode))
(add-hook 'cmake-ts-mode-hook #'eglot-ensure))
;; kdl ;; kdl
(require 'kdl-ts-mode) (require 'kdl-ts-mode)
@ -1294,7 +1293,13 @@ If no name is given, list all bookmarks instead."
:bind (("C-x C-m" . mu4e) :bind (("C-x C-m" . mu4e)
("C-x m" . mu4e-compose-new) ("C-x m" . mu4e-compose-new)
:map message-mode-map :map message-mode-map
("C-c k" . khard-insert-email-contact)) ("C-c k" . khard-insert-email-contact)
:map mu4e-headers-mode-map
([remap mu4e-headers-mark-for-trash] .
my/mu4e-headers-mark-for-trash)
:map mu4e-view-mode-map
([remap mu4e-view-mark-for-trash] .
my/mu4e-view-mark-for-trash))
:init :init
(require 'mu4e) (require 'mu4e)
(evil-define-key '(normal motion) mu4e-main-mode-map "q" #'bury-buffer) (evil-define-key '(normal motion) mu4e-main-mode-map "q" #'bury-buffer)
@ -1309,6 +1314,20 @@ If no name is given, list all bookmarks instead."
"Run `mu4e-update-mail-and-index' without any messages in the background." "Run `mu4e-update-mail-and-index' without any messages in the background."
(setq mu4e-hide-index-messages t) (setq mu4e-hide-index-messages t)
(mu4e-update-mail-and-index t)) (mu4e-update-mail-and-index t))
(defun my/mu4e-headers-mark-for-trash ()
"Move the message a point to the trash without marking it was deleted
(trashed)."
(interactive)
(when (mu4e-thread-message-folded-p)
(mu4e-warn "Cannot mark folded messages"))
(mu4e-mark-at-point 'move mu4e-trash-folder)
(when mu4e-headers-advance-after-mark
(mu4e-headers-next)))
(defun my/mu4e-view-mark-for-trash ()
"Like `my/mu4e-headers-mark-for-trash', but for `mu4e-view-mode'."
(interactive)
(mu4e--view-in-headers-context
(my/mu4e-headers-mark-for-trash)))
(setq message-kill-buffer-on-exit t (setq message-kill-buffer-on-exit t
message-send-mail-function 'sendmail-send-it message-send-mail-function 'sendmail-send-it
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t