Whitespace cleanup

global.org

@@ -828,7 +828,9 @@
                 mm-text-html-renderer 'gnus-w3m
                 mu4e-read-option-use-builtin nil
                 mu4e-completing-read-function 'completing-read
-           mu4e-modeline-support nil)
+                mu4e-modeline-support nil
+
+                )
 
           (let (p1 p2 myLine)
             (setq p1 (line-beginning-position) )
@@ -982,7 +984,8 @@
      (setq mu4e-contexts
            `( ,(make-mu4e-context
                 :name "Work"
-                     :enter-func (lambda () (mu4e-message "Switch to the Work context"))
+                :enter-func
+                (lambda () (mu4e-message "Switch to the Work context"))
                 ;; no leave-func
                 ;; we match based on the maildir of the message
                 :match-func (lambda (msg)
@@ -1003,8 +1006,10 @@
 
               ,(make-mu4e-context
                 :name "CMP Editor"
-                     :enter-func (lambda () (mu4e-message "Switch to the CMP Editor context"))
+                :enter-func
-                     :leave-func (lambda () (mu4e-message "Leave the CMP Editor context"))
+                (lambda () (mu4e-message "Switch to the CMP Editor context"))
+                :leave-func
+                (lambda () (mu4e-message "Leave the CMP Editor context"))
                 ;; we match based on the maildir of the message
                 :match-func (lambda (msg)
                               (when msg
@@ -1028,11 +1033,11 @@
 
      ;; start with the first (default) context;
      ;; default is to ask-if-none (ask when there's no context yet, and none match)
-          (setq mu4e-context-policy 'pick-first)
+     (setq mu4e-context-policy 'ask-if-none)
 
      ;; compose with the current context is no context matches;
      ;; default is to ask
-          (setq mu4e-compose-context-policy 'pick-first)
+     (setq mu4e-compose-context-policy 'ask-if-none)
 
 
      (add-hook 'mu4e-headers-mode-hook