Optimisation / ménage sur mailcut

.emacs

@@ -1063,11 +1063,8 @@
   (interactive)
   (end-of-line)
   (kill-line)
-  (save-excursion
-    (goto-char (point))
-    (when (re-search-forward ">\\( *>\\)* *" nil t)
-      (replace-match "" nil t)
-      (just-one-space)))
+  (when (re-search-forward "[ >]*" nil t)
+    (replace-match " " nil t))
   (end-of-line)
   (gin-do-auto-fill))
 ;; Au niveau du mapping, c'est un peu tricky. Je n'ai pas trouvé le