Tweak how `M-RET' in Message mode fills paragraphs

* lisp/gnus/message.el (message-newline-and-reformat): Pick up any
longer white-space prefix before starting to fill (bug#43299).
This fixes the problem of hitting M-RET on a line that's just ">".

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index e10322417d8b4cb942c2cb5440781f98ee601cb7..3e7e18906c6be28bd355931720916d1c33a95de5 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3536,8 +3536,8 @@ Prefix arg means justify as well."
                      (equal quoted (match-string 0)))
            (goto-char (match-end 0))
            (looking-at "[ \t]*")
-           (if (> (length leading-space) (length (match-string 0)))
-               (setq leading-space (match-string 0)))
+           (when (< (length leading-space) (length (match-string 0)))
+             (setq leading-space (match-string 0)))
            (forward-line 1))
          (setq end (point))
          (goto-char beg)