about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-01-05 09:29:26 -0600
committerCase Duckworth2021-01-05 09:29:26 -0600
commit0f76129bbb52bb7c2a8773aa3ddfd18d3645f5fb (patch)
tree839d8336ba1b8bd2f4fb92cef31a6dd5891ad2d4
parentAdd nov.el (diff)
downloademacs-0f76129bbb52bb7c2a8773aa3ddfd18d3645f5fb.tar.gz
emacs-0f76129bbb52bb7c2a8773aa3ddfd18d3645f5fb.zip
Add mu4e
-rw-r--r--config.org75
1 files changed, 74 insertions, 1 deletions
diff --git a/config.org b/config.org index 3c44ca9..2b83bc7 100644 --- a/config.org +++ b/config.org
@@ -5,7 +5,7 @@
5#+EXPORT_FILE_NAME: README.md 5#+EXPORT_FILE_NAME: README.md
6#+OPTIONS: toc:nil 6#+OPTIONS: toc:nil
7#+BANKRUPTCY_COUNT: 3.2 7#+BANKRUPTCY_COUNT: 3.2
8#+Time-stamp: <2021-01-04 14:20:09 acdw> 8#+Time-stamp: <2021-01-05 09:28:00 acdw>
9 9
10* Basics 10* Basics
11 11
@@ -1648,6 +1648,79 @@ I’m only enabling this at home for now, since it requires building stuff.
1648 (add-hook 'nov-mode-hook #'acdw/setup-nov-mode) 1648 (add-hook 'nov-mode-hook #'acdw/setup-nov-mode)
1649 #+end_src 1649 #+end_src
1650 1650
1651** Email
1652
1653 #+begin_src emacs-lisp
1654 (when (executable-find "mu")
1655
1656 (add-to-list 'load-path
1657 "/usr/share/emacs/site-lisp/mu4e")
1658 (require 'mu4e)
1659
1660 (cuss mail-user-agent 'mu4e-user-agent)
1661
1662 (cuss mu4e-headers-skip-duplicates t)
1663 (cuss mu4e-view-show-images t)
1664 (cuss mu4e-view-show-addresses t)
1665 (cuss mu4e-compose-format-flowed t)
1666 (cuss mu4e-change-filenames-when-moving t)
1667 (cuss mu4e-attachments-dir "~/Downloads")
1668
1669 (cuss mu4e-maildir "~/.mail/fastmail")
1670 (cuss mu4e-refile-folder "/Archive")
1671 (cuss mu4e-sent-folder "/Sent")
1672 (cuss mu4e-drafts-folder "/Drafts")
1673 (cuss mu4e-trash-folder "/Trash")
1674
1675 (fset 'my-move-to-trash "mTrash")
1676 (define-key mu4e-headers-mode-map (kbd "d") 'my-move-to-trash)
1677 (define-key mu4e-view-mode-map (kbd "d") 'my-move-to-trash)
1678
1679 (cuss message-send-mail-function 'smtpmail-send-it)
1680 (cuss smtpmail-default-smtp-server "smtp.fastmail.com")
1681 (cuss smtpmail-smtp-server "smtp.fastmail.com")
1682 (cuss smtpmail-stream-type 'ssl)
1683 (cuss smtpmail-smtp-service 465)
1684 (cuss smtpmail-local-domain "acdw.net")
1685 (cuss mu4e-compose-signature
1686 "Best,\nCase\n")
1687
1688 ;; (cuss mu4e-get-mail-command "mbsync -a")
1689 ;; (cuss mu4e-update-interval 300)
1690
1691 (cuss mu4e-completing-read-function 'completing-read)
1692 (cuss message-kill-buffer-on-exit t)
1693 (cuss mu4e-confirm-quit nil)
1694
1695 (cuss mu4e-bookmarks
1696 '((
1697 :name "Unread"
1698 :query
1699 "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam"
1700 :key ?u)
1701 (
1702 :name "Today"
1703 :query "date:today..now and not maildir:/Spam"
1704 :key ?t)
1705 (
1706 :name "This week"
1707 :query "date:7d..now and not maildir:/Spam"
1708 :hide-unread t
1709 :key ?w)))
1710
1711 (cuss mu4e-headers-fields
1712 '((:human-date . 12)
1713 (:flags . 6)
1714 (:mailing-list . 10)
1715 (:from-or-to . 22)
1716 (:subject)))
1717
1718 (defun acdw/setup-mu4e-view-mode ()
1719 (visual-fill-column-mode +1))
1720
1721 (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode))
1722 #+end_src
1723
1651* Appendices 1724* Appendices
1652 1725
1653** Emacs' files 1726** Emacs' files