diff --git a/global.org b/global.org index ccd5359..e569601 100644 --- a/global.org +++ b/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]]