Add header-line to μ-compose to show the context

global.org

@@ -1013,7 +1013,27 @@
 
 
    #+end_src
+*** This is an attempt to highlight the current context when composing
+   #+begin_src emacs-lisp
+     (add-hook 'mu4e-compose-mode-hook
+       (defun my-do-compose-stuff ()
+         (setq header-line-format-right '("Context: "
+                                               (:eval (mu4e-context-name (mu4e-context-current))))
+               header-line-separator
+               '(:eval (let* ((len-left 0)
+                              (len-right (length (format-mode-line header-line-format-right)))
+                              (len-separator (- (+ (window-width) 2 2 2) (+ len-left len-right))))
+                         (format (format "%%%ds" len-separator) ""))))
+         (put 'header-line-format-right 'risky-local-variable t)
+         (put 'header-line-separator 'risky-local-variable t)
+         (setq header-line-format '("" header-line-separator
+                                    header-line-format-right))))
    #+end_src
+*** Save attachments with more reasonable permissions
+   #+begin_src emacs-lisp
+     (setq mm-attachment-file-modes #o644)
+   #+end_src
+
 *** Recipient handling
     Add aliases (i.e. mailing groups) to [[file://~/.mailrc][the .mailrc file]]