diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index a720df51d14..acb6a38436e 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.