From c9a0183d78fa568720a5da6af892ed42003ee65c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 1 Sep 2017 15:02:16 +0200
Subject: Add satoshipay email

---
 emacs/.emacs.d/main.el     | 83 +++++++++++++++++++++++++++++-----------------
 offlineimap/.offlineimaprc | 22 ++++++++++++
 2 files changed, 74 insertions(+), 31 deletions(-)

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index bee592a..7c63657 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -1387,37 +1387,58 @@
           message-send-mail-function #'message-send-mail-with-sendmail
           sendmail-program "msmtp"
 
-        mu4e-maildir-shortcuts '(("/INBOX" . ?i))
-        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-maildir . ,(expand-file-name "~/mail/personal/alanpearce"))
-                  (mu4e-mu-home . ,(expand-file-name "~/.cache/mu/alanpearce.eu"))
-                  (mu4e-sent-messages-behavior . sent)))
-         (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-maildir . ,(expand-file-name "~/mail/personal/riseup"))
-                  (mu4e-mu-home . ,(expand-file-name "~/.cache/mu/riseup.net"))
-                  (mu4e-sent-messages-behavior . sent))))
-        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")))))
+          mu4e-maildir-shortcuts '(("/INBOX" . ?i))
+          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-maildir . ,(expand-file-name "~/mail/personal/alanpearce"))
+                    (mu4e-mu-home . ,(expand-file-name "~/.cache/mu/alanpearce.eu"))
+                    (mu4e-sent-messages-behavior . sent)
+                    (mu4e-sent-folder . "/Sent")
+                    (mu4e-drafts-folder . "/Drafts")
+                    (mu4e-refile-folder . "/Archive")
+                    (mu4e-trash-folder . "/Trash")))
+           (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-maildir . ,(expand-file-name "~/mail/personal/riseup"))
+                    (mu4e-mu-home . ,(expand-file-name "~/.cache/mu/riseup.net"))
+                    (mu4e-sent-messages-behavior . sent)
+                    (mu4e-sent-folder . "/Sent")
+                    (mu4e-drafts-folder . "/Drafts")
+                    (mu4e-refile-folder . "/Archive")
+                    (mu4e-trash-folder . "/Trash")))
+           (make-mu4e-context
+            :name "Satoshipay"
+            :match-func (lambda (msg)
+                          (when msg
+                            (mu4e-message-contact-field-matches
+                             msg :to "alan@satoshipay.io")))
+            :vars `((user-mail-address . "alan@satoshipay.io")
+                    (mu4e-maildir . ,(expand-file-name "~/mail/satoshipay"))
+                    (mu4e-mu-home . ,(expand-file-name "~/.cache/mu/satoshipay.io"))
+                    (mu4e-sent-messages-behavior . sent)
+                    (mu4e-drafts-folder . "/[Gmail].Drafts")
+                    (mu4e-sent-folder .   "/[Gmail].Sent Mail")
+                    (mu4e-trash-folder .  "/[Gmail].Bin"))))
+          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")))))
 ;; #+END_SRC
 
 ;; ** Misc
diff --git a/offlineimap/.offlineimaprc b/offlineimap/.offlineimaprc
index 1e15793..7fe7379 100644
--- a/offlineimap/.offlineimaprc
+++ b/offlineimap/.offlineimaprc
@@ -52,6 +52,28 @@ holdconnectionopen = yes
 usecompression = yes
 idlefolders = ['INBOX']
 
+[Account satoshipay.io]
+localrepository = satoshipay.io-local
+remoterepository = satoshipay.io-remote
+autorefresh = 20
+quick = 2
+postsynchook = mu index --muhome=~/.cache/mu/satoshipay.io --maildir=%(satoshipaymaildir)s --lazy-check --nocleanup --quiet
+
+[Repository satoshipay.io-local]
+type = GmailMaildir
+localfolders = %(satoshipaymaildir)s
+
+[Repository satoshipay.io-remote]
+type = Gmail
+remoteuser = alan@satoshipay.io
+remotepasseval = get_pass("satoshipay/google")
+sslcacertfile = /etc/ssl/certs/ca-certificates.crt
+keepalive = 1740
+holdconnectionopen = yes
+usecompression = yes
+idlefolders = ['INBOX']
+
 [DEFAULT]
 alanpearcemaildir = ~/mail/personal/alanpearce
 riseupmaildir = ~/mail/personal/riseup
+satoshipaymaildir = ~/mail/satoshipay
\ No newline at end of file
-- 
cgit 1.4.1