aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2020-04-13 12:25:37 +0300
committerEli Zaretskii2020-04-13 12:25:37 +0300
commitc395ebaf2142b4a142262353f730fb7b1fcea710 (patch)
treec3eedc75c01f4299633628dbb5ae61000882805c
parent49f2811f7827142fd5dcd6c4a53fd7c0c700054f (diff)
downloademacs-c395ebaf2142b4a142262353f730fb7b1fcea710.tar.gz
emacs-c395ebaf2142b4a142262353f730fb7b1fcea710.zip
Fix last change
* lisp/mail/rmail.el (rmail-simplified-subject): A prefix can have up to 4 characters, not 3.
-rw-r--r--lisp/mail/rmail.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 6c9847304fd..40d34702e4e 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3408,7 +3408,7 @@ whitespace, replacing whitespace runs with a single space and
3408removing prefixes such as Re:, Fwd: and so on and mailing list 3408removing prefixes such as Re:, Fwd: and so on and mailing list
3409tags such as [tag]." 3409tags such as [tag]."
3410 (let ((subject (or (rmail-get-header "Subject" msgnum) "")) 3410 (let ((subject (or (rmail-get-header "Subject" msgnum) ""))
3411 (regexp "\\`[ \t\n]*\\(\\(\\w\\{1,3\\}[::]\\|\\[[^]]+]\\)[ \t\n]+\\)*")) 3411 (regexp "\\`[ \t\n]*\\(\\(\\w\\{1,4\\}[::]\\|\\[[^]]+]\\)[ \t\n]+\\)*"))
3412 (setq subject (rfc2047-decode-string subject)) 3412 (setq subject (rfc2047-decode-string subject))
3413 (setq subject (replace-regexp-in-string regexp "" subject)) 3413 (setq subject (replace-regexp-in-string regexp "" subject))
3414 (replace-regexp-in-string "[ \t\n]+" " " subject))) 3414 (replace-regexp-in-string "[ \t\n]+" " " subject)))