From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 29 Sep 2021 18:48:41 +0000 (+0200)
Subject: Tweak previous message-newline-and-reformat change
X-Git-Tag: emacs-28.0.90~516
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0f7a27a919a5770a05ac774a4ed980588d37993;p=emacs.git

Tweak previous message-newline-and-reformat change

* lisp/gnus/message.el (message-newline-and-reformat): Only search
for previous/next cited lines that have space, because it's the
space we're trying to find.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f51f5c0dd0d..d460f9bd922 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3577,7 +3577,7 @@ Prefix arg means justify as well."
         ;; case, the trailing space is commonly not present, so look
         ;; around for other lines that have some data.
         (when (looking-at-p "\n")
-          (let ((regexp (concat "^" message-cite-prefix-regexp ".")))
+          (let ((regexp (concat "^" message-cite-prefix-regexp "[ \t]")))
             (when (or (re-search-backward regexp nil t)
                       (re-search-forward regexp nil t))
               (goto-char (1- (match-end 0))))))