Emacs: Advise `message-newline-and-reformat' to add spaces at EOL

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)