From 7cd5bc66ea69070385014d89a940d5b85efc9869 Mon Sep 17 00:00:00 2001
From: Philippe Dosch <Philippe.Dosch@loria.fr>
Date: Fri, 19 Apr 2024 15:43:32 +0200
Subject: [PATCH] =?UTF-8?q?Am=C3=A9lioration=20gin=20mode=20pour=20r=C3=A9?=
 =?UTF-8?q?p.=20mail?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .emacs            | 7 +++++--
 .lisp/gin-mode.el | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/.emacs b/.emacs
index 5d65038..5760bca 100644
--- a/.emacs
+++ b/.emacs
@@ -1063,8 +1063,11 @@
   (interactive)
   (end-of-line)
   (kill-line)
-  (delete-char 1)
-  (just-one-space)
+  (save-excursion
+    (goto-char (point))
+    (when (re-search-forward ">\\( *>\\)* *" nil t)
+      (replace-match "" nil t)
+      (just-one-space)))
   (end-of-line)
   (gin-do-auto-fill))
 ;; Au niveau du mapping, c'est un peu tricky. Je n'ai pas trouvé le
diff --git a/.lisp/gin-mode.el b/.lisp/gin-mode.el
index ef40854..f07dc65 100644
--- a/.lisp/gin-mode.el
+++ b/.lisp/gin-mode.el
@@ -58,7 +58,7 @@ white space beyond the hanging indent.  Setting this variable makes
 it buffer-local.")
 
 (defvar gin-retain-indent-re
-  "[ \t]*[a-zA-Z-]*>+[ \t]*\\|[ \t]+"
+  "[ \t]*[a-zA-Z-]*>\\( *>\\)*[ \t]*\\|[ \t]+"
   "*Regexp that defines how a fill-prefix can look like.
 If such a string is seen by gin-guess-prefix in the current line,
 the next line will be indented with it, too.  Setting this variable
-- 
GitLab