diff options
| -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 4e182525511..4e5873c06ee 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -3403,7 +3403,7 @@ whitespace, replacing whitespace runs with a single space and | |||
| 3403 | removing prefixes such as Re:, Fwd: and so on and mailing list | 3403 | removing prefixes such as Re:, Fwd: and so on and mailing list |
| 3404 | tags such as [tag]." | 3404 | tags such as [tag]." |
| 3405 | (let ((subject (or (rmail-get-header "Subject" msgnum) "")) | 3405 | (let ((subject (or (rmail-get-header "Subject" msgnum) "")) |
| 3406 | (regexp "\`[ \t\n]*\\(\\(\\w\\{1,3\\}:\\|\\[[^]]+]\\)[ \t\n]+\\)*")) | 3406 | (regexp "\\`[ \t\n]*\\(\\(\\w\\{1,3\\}:\\|\\[[^]]+]\\)[ \t\n]+\\)*")) |
| 3407 | (setq subject (rfc2047-decode-string subject)) | 3407 | (setq subject (rfc2047-decode-string subject)) |
| 3408 | (setq subject (replace-regexp-in-string regexp "" subject)) | 3408 | (setq subject (replace-regexp-in-string regexp "" subject)) |
| 3409 | (replace-regexp-in-string "[ \t\n]+" " " subject))) | 3409 | (replace-regexp-in-string "[ \t\n]+" " " subject))) |