From 0f76129bbb52bb7c2a8773aa3ddfd18d3645f5fb Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 5 Jan 2021 09:29:26 -0600
Subject: Add mu4e
---
config.org | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 74 insertions(+), 1 deletion(-)
diff --git a/config.org b/config.org
index 3c44ca9..2b83bc7 100644
--- a/config.org
+++ b/config.org
@@ -5,7 +5,7 @@
#+EXPORT_FILE_NAME: README.md
#+OPTIONS: toc:nil
#+BANKRUPTCY_COUNT: 3.2
-#+Time-stamp: <2021-01-04 14:20:09 acdw>
+#+Time-stamp: <2021-01-05 09:28:00 acdw>
* Basics
@@ -1648,6 +1648,79 @@ I’m only enabling this at home for now, since it requires building stuff.
(add-hook 'nov-mode-hook #'acdw/setup-nov-mode)
#+end_src
+** Email
+
+ #+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)))
+
+ (defun acdw/setup-mu4e-view-mode ()
+ (visual-fill-column-mode +1))
+
+ (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode))
+ #+end_src
+
* Appendices
** Emacs' files
--
cgit 1.4.1-21-gabe81