diff options
| author | Eli Zaretskii | 2020-04-13 12:25:37 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2020-04-13 12:25:37 +0300 |
| commit | c395ebaf2142b4a142262353f730fb7b1fcea710 (patch) | |
| tree | c3eedc75c01f4299633628dbb5ae61000882805c | |
| parent | 49f2811f7827142fd5dcd6c4a53fd7c0c700054f (diff) | |
| download | emacs-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.el | 2 |
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 | |||
| 3408 | removing prefixes such as Re:, Fwd: and so on and mailing list | 3408 | removing prefixes such as Re:, Fwd: and so on and mailing list |
| 3409 | tags such as [tag]." | 3409 | tags 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))) |