procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak previous message-newline-and-reformat change

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-09-29 20:48:41 +02:00
parent 923b89248c
commit b0f7a27a91
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/message.el
View file

@ -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))))))