Add mu4e

1 files changed, 76 insertions, 0 deletions

@@ -1186,6 +1186,82 @@ from [[https://github.com/alphapapa/unpackaged.el#org-return-dwim][unpackaged.el
     (0x0-default-service 'ttm))
 #+END_SRC
 
+** Mu4e
+
+#+begin_src emacs-lisp
+  (when (executable-find "mu")
+    (add-to-list 'load-path
+                 "/usr/share/emacs/site-lisp/mu4e")
+    (require 'mu4e)
+
+    (cuss mail-user-agent 'mu4e-user-agent)
+
+    (cuss mu4e-headers-skip-duplicates t)
+    (cuss mu4e-view-show-images t)
+    (cuss mu4e-view-show-addresses t)
+    (cuss mu4e-compose-format-flowed t)
+    (cuss mu4e-change-filenames-when-moving t)
+    (cuss mu4e-attachments-dir "~/Downloads")
+
+    (cuss mu4e-maildir "~/.mail/fastmail")
+    (cuss mu4e-refile-folder "/Archive")
+    (cuss mu4e-sent-folder "/Sent")
+    (cuss mu4e-drafts-folder "/Drafts")
+    (cuss mu4e-trash-folder "/Trash")
+
+    (fset 'my-move-to-trash "mTrash")
+    (define-key mu4e-headers-mode-map (kbd "d") 'my-move-to-trash)
+    (define-key mu4e-view-mode-map (kbd "d") 'my-move-to-trash)
+
+    (cuss message-send-mail-function 'smtpmail-send-it)
+    (cuss smtpmail-default-smtp-server "smtp.fastmail.com")
+    (cuss smtpmail-smtp-server "smtp.fastmail.com")
+    (cuss smtpmail-stream-type 'ssl)
+    (cuss smtpmail-smtp-service 465)
+    (cuss smtpmail-local-domain "acdw.net")
+    (cuss mu4e-compose-signature
+          "Best,\nCase\n")
+
+    (cuss mu4e-get-mail-command "mbsync -a")
+    (cuss mu4e-update-interval 300)
+
+    (cuss mu4e-completing-read-function 'completing-read)
+    (cuss message-kill-buffer-on-exit t)
+    (cuss mu4e-confirm-quit nil)
+
+    (cuss mu4e-bookmarks
+          '((
+             :name "Unread"
+             :query
+             "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam"
+             :key ?u)
+            (
+             :name "Today"
+             :query "date:today..now and not maildir:/Spam"
+             :key ?t)
+            (
+             :name "This week"
+             :query "date:7d..now and not maildir:/Spam"
+             :hide-unread t
+             :key ?w)))
+
+    (cuss mu4e-headers-fields
+          '((:human-date . 12)
+            (:flags . 6)
+            (:mailing-list . 10)
+            (:from-or-to . 22)
+            (:subject)))
+    )
+
+  ;; not sure about this...
+  (use-package mu4e-dashboard
+    :straight (mu4e-dashboard
+               :host github
+               :repo "rougier/mu4e-dashboard"
+               :branch "main"))
+
+#+end_src
+
 * Appendix A: ~emacsdc~ script
 
 Here's a wrapper script that'll start =emacs --daemon= if there isn't one, and then launche =emacsclient= on the arguments.  I'd recommend installing with ~ln -s emacsdc ~/.local/bin/~ or something.  Then you can set it as your ~$EDITOR~!