feat: correct mu4e trashing behavior

This commit is contained in:
Flinner 2022-03-18 23:02:01 +03:00
parent 8740a82876
commit aa9781e3fe
Signed by: flinner
GPG Key ID: 95CE0DA7F0E58CA6
1 changed files with 34 additions and 2 deletions

View File

@ -2165,7 +2165,7 @@ I wrote that, neat isn't it? :P
#+end_src #+end_src
* Email * Email (mu4e)
** Contexts ** Contexts
#+begin_src emacs-lisp #+begin_src emacs-lisp
;; assumed Maildir layout ;; assumed Maildir layout
@ -2233,7 +2233,7 @@ I wrote that, neat isn't it? :P
#+end_src #+end_src
** Send email ** Send email (msmtp)
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq sendmail-program "/usr/bin/msmtp" (setq sendmail-program "/usr/bin/msmtp"
message-sendmail-f-is-evil t message-sendmail-f-is-evil t
@ -2244,6 +2244,9 @@ I wrote that, neat isn't it? :P
** Email List here! ** Email List here!
#+begin_src emacs-lisp :tangle no #+begin_src emacs-lisp :tangle no
;; This is a sample, it doesn't get included in init.el
;; I put mine at location specified in the next code block
;; any number of email can be used ofc
(setq mu4e-contexts `( (setq mu4e-contexts `(
,(my-make-mu4e-context ,(my-make-mu4e-context
"maildir-context" "Full Name" "maildir-context" "Full Name"
@ -2260,6 +2263,35 @@ or don't include in git source :)
(load "~/Documents/passwords/mu4e-context.el")) (load "~/Documents/passwords/mu4e-context.el"))
#+end_src #+end_src
** Other fixes
see: [[https://github.com/djcb/mu/issues/1136][djcb/mu#1136 Shouldn't set flag T after moving to trash]]. Deleting
should only move to trash, not delete entirely from the server
#+begin_src emacs-lisp
(setf (alist-get 'trash mu4e-marks)
(list :char '("d" . "▼")
:prompt "dtrash"
:dyn-target (lambda (target msg)
(mu4e-get-trash-folder msg))
:action (lambda (docid msg target)
;; Here's the main difference to the regular trash mark,
;; no +T before -N so the message is not marked as
;; IMAP-deleted:
(mu4e--server-move docid (mu4e--mark-check-target target) "-N"))))
#+end_src
#+begin_src emacs-lisp
(setq mu4e-completing-read-function 'completing-read);; Use Helm
(setq message-kill-buffer-on-exit t) ;; Why would I want to leave my message open after I've sent it?
#+end_src
Breaking change betweeen =mu4e-alert= and =mu= :(
#+begin_src emacs-lisp
(defvaralias 'mu4e~context-current 'mu4e--context-current)
#+end_src
* Telega * Telega
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package telega (use-package telega