From ba24073a075a7ce4f153c1dc7d33582ac04b7b56 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 18 Apr 2018 01:07:11 -0400 Subject: [PATCH] app/email: replace existing contexts instead of shadowing them #528 --- modules/app/email/config.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/modules/app/email/config.el b/modules/app/email/config.el index e690f7a78..8814d6752 100644 --- a/modules/app/email/config.el +++ b/modules/app/email/config.el @@ -28,6 +28,9 @@ default/fallback account." (let ((account-vars ,letvars)) (when-let* ((address (cdr (assq 'user-mail-address account-vars)))) (cl-pushnew address mu4e-user-mail-address-list :test #'equal)) + (setq mu4e-contexts + (cl-delete-if (lambda (c) (string= (mu4e-context-name c) ,label)) + mu4e-contexts)) (let ((context (make-mu4e-context :name ,label :enter-func (lambda () (mu4e-message "Switched to %s" ,label)) @@ -39,8 +42,8 @@ default/fallback account." (mu4e-message-field msg :maildir)))) :vars ,letvars))) (push context mu4e-contexts) - ,(when default-p - `(setq-default mu4e-context-current context)))))) + ,(if default-p `(setq-default mu4e-context-current context)) + context)))) ;;