summary refs log tree commit diff stats
path: root/emacs
diff options
context:
space:
mode:
authorAlan Pearce2018-10-11 14:48:19 +0200
committerAlan Pearce2018-10-11 14:48:19 +0200
commitbc8ec6129fde9db0b62a74acd0fff187a11e7efe (patch)
tree325d2bfef92717f0f3b512ed4a68ad2c403bc709 /emacs
parenta77480e0c027d7b34207cdbc3488f1a2f868adf3 (diff)
downloadnixfiles-bc8ec6129fde9db0b62a74acd0fff187a11e7efe.tar.lz
nixfiles-bc8ec6129fde9db0b62a74acd0fff187a11e7efe.tar.zst
nixfiles-bc8ec6129fde9db0b62a74acd0fff187a11e7efe.zip
Simplify email setup
Diffstat (limited to 'emacs')
-rw-r--r--emacs/.emacs.d/main.el44
1 files changed, 1 insertions, 43 deletions
diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 69093c4a..5330685e 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -1217,40 +1217,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)
                                   (when 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 "<tab>") 'shr-next-link)