From 11714f9162eb12273f1b241a2dad6ed4f6973385 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 5 Aug 2019 16:44:50 +0200
Subject: Emacs: pick work context automatically on satoshipad

---
 emacs/.emacs.d/main.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'emacs/.emacs.d/main.el')

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 686cc6f9..4769039e 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -653,9 +653,10 @@ With two prefix arguments, write out the day and month name."
                                  (make-mu4e-context
                                   :name "SatoshiPay"
                                   :match-func (lambda (msg)
-                                                (when msg
-                                                  (mu4e-message-contact-field-matches
-                                                   msg :to "alan@satoshipay.io")))
+                                                (if msg
+                                                    (mu4e-message-contact-field-matches
+                                                     msg :to "alan@satoshipay.io")
+                                                  (string-equal system-name "satoshipad")))
                                   :vars '((user-mail-address . "alan@satoshipay.io")
                                           (mu4e-sent-messages-behavior . 'delete)
                                           (mu4e-drafts-folder . "/satoshipay/Drafts")
-- 
cgit 1.4.1