From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 17 Dec 2024 22:07:45 +0000 (-0500)
Subject: * lisp/mail/sendmail.el (mail-citation-prefix-regexp): Fix bug#24081
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7892906d056ca88b39d1976ac91d1bd7da552fb8;p=emacs.git

* lisp/mail/sendmail.el (mail-citation-prefix-regexp): Fix bug#24081

(cherry picked from commit 22806c65f4f8d68547d33997d017039763b4bf6a)
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index cf641cfb652..b0f7baa4cae 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -258,7 +258,9 @@ regardless of what part of it (if any) is included in the cited text.")
 
 ;;;###autoload
 (defcustom mail-citation-prefix-regexp
-  (purecopy "\\([ \t]*\\(\\w\\|[_.]\\)+>+\\|[ \t]*[>|]\\)+")
+  ;; Use [[:word:]] rather than \w so we don't get tripped up if one
+  ;; of those chars has a weird `syntax-table' text property.
+  (purecopy "\\([ \t]*\\([[:word:]]\\|[_.]\\)+>+\\|[ \t]*[>|]\\)+")
   "Regular expression to match a citation prefix plus whitespace.
 It should match whatever sort of citation prefixes you want to handle,
 with whitespace before and after; it should also match just whitespace.