diff options
| -rw-r--r-- | common/.emacs.d/init.el | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el index 48a8d38..1cc30a8 100644 --- a/common/.emacs.d/init.el +++ b/common/.emacs.d/init.el @@ -1945,10 +1945,29 @@ buffer's text scale." (rx (or "simonparri@ganzeria.com" "simon@zoar.cx" "marsironpi@ba.ln.ea.cx" - "2025sparri@sullivan.k12.il.us"))) + "2025sparri@sullivan.k12.il.us")) + message-default-headers + "Content-Type: text/plain; format=flowed") :config (add-hooks 'message-mode-hook - 'electric-indent-mode)) + 'electric-indent-mode) + + (define-advice message-newline-and-reformat (:after (&rest _) flow) + (save-excursion + (let* ((bor (progn + (backward-paragraph) + (forward-line) ;; back onto paragraph text + (beginning-of-line) + (point))) + (eor (progn + (forward-paragraph) + (previous-line) ;; back onto paragraph text + (unless (= bor (point)) + (previous-line)) + (end-of-line) + (point)))) + (replace-regexp-in-region "\\([^ \t]\\)$" "\\1 " + bor eor))))) (use-package gnus :if (group-enabled-p 'mail) |