diff --git a/lisp/ti-config/libraries b/lisp/ti-config/libraries index 5e6a31f..c766a52 160000 --- a/lisp/ti-config/libraries +++ b/lisp/ti-config/libraries @@ -1 +1 @@ -Subproject commit 5e6a31f6fb55133246d7b57800faad26fa6268bf +Subproject commit c766a5292d62550c3211088d40e9dc89897f7ab3 diff --git a/lisp/ti-config/work-mail.el b/lisp/ti-config/work-mail.el index 2a667eb..6c85051 100644 --- a/lisp/ti-config/work-mail.el +++ b/lisp/ti-config/work-mail.el @@ -29,6 +29,8 @@ (require 'mu4e) +(require 'ti-mail-identity) + (with-eval-after-load 'mu4e-view (add-hook 'mu4e-view-mode-hook #'olivetti-mode)) @@ -46,7 +48,7 @@ ;; (global-set-key (kbd "") 'mu4e) (setq mu4e-maildir "~/.mail" - mu4e-sent-folder "/work/Sent" + mu4e-sent-folder "/work/Sent Items" mu4e-drafts-folder "/work/Drafts" mu4e-refile-folder "/work/Archive" mu4e-trash-folder "/work/Trash") @@ -55,7 +57,6 @@ '((:key ?i :maildir "/work/INBOX") (:key ?c :maildir "/work/INBOX/C29") (:key ?j :maildir "/work/INBOX/Jira") - (:key ?d :maildir "/work/Done") (:key ?a :maildir "/work/Done"))) (setq mu4e-bookmarks @@ -153,5 +154,21 @@ :override #'my/mu4e~headers-thread-prefix) +(defun my/mu4e-compose-edit-ignore-draft() + "Edit an existing draft message." + (interactive) + (let* ((msg (mu4e-message-at-point))) + (mu4e--draft + 'edit + (lambda () + (with-current-buffer + (find-file-noselect (mu4e-message-readable-path msg)) + (mu4e--delimit-headers) + (current-buffer)))))) + +(advice-add #'mu4e-compose-edit + :override + #'my/mu4e-compose-edit-ignore-draft) + (provide 'work-mail) ;;; work-mail.el ends here