Amélioration gin mode pour rép. mail

.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

.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