diff options
author | Eli Zaretskii <eliz@gnu.org> | 2021-03-13 11:22:01 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2021-03-13 11:22:01 +0200 |
commit | 876b95bf90653fe61ad0b9e2d17924832422e8bb (patch) | |
tree | b140ebd94072d6d32ee7a0bfe4d71b605c025f8b | |
parent | a2960025e8e029bcccf22143e183b9e1e9965dd6 (diff) | |
download | emacs-876b95bf90653fe61ad0b9e2d17924832422e8bb.tar.gz |
Teach Rmail about NBSP in "Re:"
* lisp/mail/rmail.el (rmail-simplified-subject)
(rmail-reply-regexp): Allow NBSP in "RE:" prefixes.
-rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 3 insertions, 2 deletions
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))) |