Emacs: pick work context automatically on satoshipad
Alan Pearce alan@alanpearce.eu
Mon, 05 Aug 2019 16:44:50 +0200
1 files changed, 4 insertions(+), 3 deletions(-)
jump to
M emacs/.emacs.d/main.el → emacs/.emacs.d/main.el
@@ -653,9 +653,10 @@ (setq mu4e-contexts (list (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")