From bc8ec6129fde9db0b62a74acd0fff187a11e7efe Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Thu, 11 Oct 2018 14:48:19 +0200 Subject: Simplify email setup --- emacs/.emacs.d/main.el | 44 +------------------------------------------- 1 file changed, 1 insertion(+), 43 deletions(-) (limited to 'emacs') diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el index 69093c4..5330685 100644 --- a/emacs/.emacs.d/main.el +++ b/emacs/.emacs.d/main.el @@ -1216,40 +1216,6 @@ With two prefix arguments, write out the day and month name." mu4e-contexts (list - (make-mu4e-context - :name "Personal" - :match-func (lambda (msg) - (when msg - (mu4e-message-contact-field-matches - msg :to "alan@alanpearce\..*"))) - :vars `((user-mail-address . "alan@alanpearce.eu") - (mu4e-sent-messages-behavior . sent) - (mu4e-sent-folder . "/personal/alanpearce/Sent") - (mu4e-drafts-folder . "/personal/alanpearce/Drafts") - (mu4e-refile-folder . "/personal/alanpearce/Archive") - (mu4e-trash-folder . "/personal/alanpearce/Trash") - (mu4e-maildir-shortcuts . (("/personal/alanpearce/INBOX" . ?i) - ("/personal/alanpearce/Archive" . ?a) - ("/personal/alanpearce/Sent" . ?s) - ("/personal/alanpearce/Junk" . ?p) - ("/personal/alanpearce/Orders" . ?r))) - )) - (make-mu4e-context - :name "Riseup" - :match-func (lambda (msg) - (when msg - (mu4e-message-contact-field-matches - msg :to "alanpearce@riseup.net"))) - :vars `((user-mail-address . "alanpearce@riseup.net") - (mu4e-sent-messages-behavior . sent) - (mu4e-sent-folder . "/personal/riseup/Sent") - (mu4e-drafts-folder . "/personal/riseup/Drafts") - (mu4e-refile-folder . "/personal/riseup/Archive") - (mu4e-trash-folder . "/personal/riseup/Trash") - (mu4e-maildir-shortcuts . (("/personal/riseup/INBOX" . ?i) - ("/personal/riseup/Archive" . ?a) - ("/personal/riseup/Sent" . ?s) - ("/personal/riseup/Spam" . ?p))))) (make-mu4e-context :name "Satoshipay" :match-func (lambda (msg) @@ -1265,15 +1231,7 @@ With two prefix arguments, write out the day and month name." (mu4e-maildir-shortcuts . (("/satoshipay/INBOX" . ?i) ("/satoshipay/[Gmail]/All Mail" . ?a) ("/satoshipay/[Gmail]/Sent Mail" . ?s) - ("/satoshipay/[Gmail]/Spam" . ?p)))))) - mu4e-user-mail-address-list (append - (delq nil - (mapcar (lambda (context) - (when (mu4e-context-vars context) - (cdr (assq 'user-mail-address (mu4e-context-vars context))))) - mu4e-contexts)) - '("alan@alanpearce.uk" - "alan@alanpearce.co.uk"))) + ("/satoshipay/[Gmail]/Spam" . ?p))))))) (define-hook-helper mu4e-view-mode () ;; try to emulate some of the eww key-bindings (local-set-key (kbd "") 'shr-next-link) -- cgit 1.4.1