From 49fbf693ddf8e901db02aa5c2ea5595b763d5319 Mon Sep 17 00:00:00 2001
From: "Foivos S. Zakkak" <foivos@zakkak.net>
Date: Tue, 15 Dec 2015 09:25:33 +0200
Subject: [PATCH] Extend contexts example

Signed-off-by: Foivos S. Zakkak <foivos@zakkak.net>
---
 mu4e/mu4e.texi | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/mu4e/mu4e.texi b/mu4e/mu4e.texi
index 5bc6cbd2..58f58b4c 100644
--- a/mu4e/mu4e.texi
+++ b/mu4e/mu4e.texi
@@ -2333,6 +2333,16 @@ for a fictional user Alice Derleth.
 		    (concat
 		      "Prof. Alice Derleth\n"
 		      "Miskatonic University, Dept. of Occult Sciences\n"))))))
+
+;; Set default context
+(mu4e-context-switch "Private")
+;; Set mu4e-user-mail-address-list to reflect the contexts' addresses
+(setq mu4e-user-mail-address-list
+      (delq nil
+            (mapcar (lambda (context)
+                      (when (mu4e-context-vars context)
+                        (cdr (assq 'user-mail-address (mu4e-context-vars context)))))
+                    mu4e-contexts)))
 @end lisp
 
 @node Contexts notes