summaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMartin Polden <mpolden@mpolden.no>2023-03-16 15:51:23 +0100
committerMartin Polden <mpolden@mpolden.no>2023-03-16 15:51:23 +0100
commitaf2a28fd952cc77e8063be8e731f17a61998e66a (patch)
tree9f03e36a9da99a351891bdf3cc3e8e5e98c91994 /lisp
parenta5c1b101dd6f50da37d38014c205e9baa224a288 (diff)
mail: remove unused config
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-mail.el80
1 files changed, 0 insertions, 80 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el
deleted file mode 100644
index 033f2bd..0000000
--- a/lisp/init-mail.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;;; init-mail.el --- configure mail client -*- lexical-binding:t -*-
-;;; Commentary:
-;;; Code:
-
-(use-package mu4e
- :load-path "/usr/local/share/emacs/site-lisp/mu/mu4e"
- :bind (("C-c M" . mu4e)
- ;; delete moves email to trash instead of deleting
- :map mu4e-headers-mode-map ("d" . "mt")
- :map mu4e-view-mode-map ("d" . "mt"))
- :hook (mu4e-view-mode . turn-on-visual-line-mode)
- :init
- ;; use mu4e as mail user agent
- (setq mail-user-agent 'mu4e-user-agent)
-
- ;; kill buffer after sending message
- (setq message-kill-buffer-on-exit t)
-
- ;; use ivy for completion
- (setq mu4e-completing-read-function 'ivy-completing-read)
-
- ;; use format=flowed when sending message
- (setq mu4e-compose-format-flowed t)
-
- ;; always show addresses
- (setq mu4e-view-show-addresses t)
-
- ;; header list date format
- (setq mu4e-headers-date-format "%Y-%m-%d %H:%M")
-
- ;; adjust date field width to fit the above format
- (setq mu4e-headers-fields '((:human-date . 18)
- (:flags . 6)
- (:mailing-list . 10)
- (:from . 22)
- (:subject)))
-
- ;; fastmail folders
- (setq mu4e-sent-folder "/Sent"
- mu4e-drafts-folder "/Drafts"
- mu4e-trash-folder "/Trash"
- mu4e-refile-folder "/Archive")
-
- ;; mbsync downloads email
- (setq mu4e-get-mail-command "mbsync -a")
-
- ;; change filename when moving (recommended when using mbsync)
- (setq mu4e-change-filenames-when-moving t)
-
- ;; shortcuts
- (setq mu4e-maildir-shortcuts '((:key ?i :maildir "/INBOX")
- (:key ?a :maildir "/Archive" )
- (:key ?s :maildir "/Sent")
- (:key ?t :maildir "/Trash")))
-
- ;; split vertically
- (setq mu4e-split-view 'vertical
- mu4e-headers-visible-columns 100)
-
- :config
- ;; use email address from git
- (when (executable-find "git")
- (setq user-full-name (string-trim (shell-command-to-string
- "git config --global --get user.name"))
- user-mail-address (string-trim (shell-command-to-string
- "git config --global --get user.email")))))
-
-(use-package smtpmail
- :init
- ;; use smtpmail
- (setq send-mail-function 'smtpmail-send-it)
-
- ;; smtp server
- (setq smtpmail-smtp-server "smtp.fastmail.com"
- smtpmail-smtp-service 465
- smtpmail-stream-type 'ssl))
-
-(provide 'init-mail)
-
-;;; init-mail.el ends here