* message.el (message-newline-and-reformat): Place a boundary

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 15d57b3..f182989 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2702,6 +2702,7 @@ Prefix arg means justify as well."
        (delete-region (point) (re-search-forward "[ \t]*"))
        (when (and quoted (not bolp))
          (insert quoted leading-space)))
+      (undo-boundary)
       (if quoted
          (let* ((adaptive-fill-regexp
                  (regexp-quote (concat quoted leading-space)))