From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 13 Mar 2021 09:22:01 +0000 (+0200)
Subject: Teach Rmail about NBSP in "Re:"
X-Git-Tag: emacs-27.2-rc1~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=876b95bf90653fe61ad0b9e2d17924832422e8bb;p=emacs.git

Teach Rmail about NBSP in "Re:"

* lisp/mail/rmail.el (rmail-simplified-subject)
(rmail-reply-regexp): Allow NBSP in "RE:" prefixes.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 628e8762387..86154f2a61f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -582,7 +582,7 @@ Examples:
 ;; This pattern should catch all the common variants.
 ;; rms: I deleted the change to delete tags in square brackets
 ;; because they mess up RT tags.
-(defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?: *\\)*"
+(defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?\u00a0*: *\\)*"
   "Regexp to delete from Subject line before inserting `rmail-reply-prefix'.")
 
 (defcustom rmail-display-summary nil
@@ -3398,7 +3398,8 @@ whitespace, replacing whitespace runs with a single space and
 removing prefixes such as Re:, Fwd: and so on and mailing list
 tags such as [tag]."
   (let ((subject (or (rmail-get-header "Subject" msgnum) ""))
-	(regexp "\\`[ \t\n]*\\(\\(\\w\\{1,3\\}:\\|\\[[^]]+]\\)[ \t\n]+\\)*"))
+	(regexp
+         "\\`[ \t\n]*\\(\\(\\w\\{1,3\\}\u00a0*:\\|\\[[^]]+]\\)[ \t\n]+\\)*"))
     (setq subject (rfc2047-decode-string subject))
     (setq subject (replace-regexp-in-string regexp "" subject))
     (replace-regexp-in-string "[ \t\n]+" " " subject)))