From b0f7a27a919a5770a05ac774a4ed980588d37993 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 29 Sep 2021 20:48:41 +0200 Subject: [PATCH] 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. --- lisp/gnus/message.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))))) -- 2.39.5