Mercurial > emacs
comparison lisp/mail/rmail.el @ 79439:b5d24ce5f8b7
(rmail-current-subject-regexp): Allow more than one space after "Subject:".
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 16 Nov 2007 16:05:07 +0000 |
parents | 5d123f7083ac |
children | de499b20517a 2cce56fd7361 |
comparison
equal
deleted
inserted
replaced
79438:2ccc14139a0b | 79439:b5d24ce5f8b7 |
---|---|
3279 ;; arbitrary places, so replace whitespace with a regexp that will | 3279 ;; arbitrary places, so replace whitespace with a regexp that will |
3280 ;; match any sequence of spaces, TABs, and newlines. | 3280 ;; match any sequence of spaces, TABs, and newlines. |
3281 (setq subject (regexp-quote subject)) | 3281 (setq subject (regexp-quote subject)) |
3282 (setq subject | 3282 (setq subject |
3283 (replace-regexp-in-string "[ \t\n]+" "[ \t\n]+" subject t t)) | 3283 (replace-regexp-in-string "[ \t\n]+" "[ \t\n]+" subject t t)) |
3284 (concat "^Subject: " | 3284 ;; Some mailers insert extra spaces after "Subject:", so allow any |
3285 ;; amount of them. | |
3286 (concat "^Subject:[ \t]+" | |
3285 (if (string= "\\`" (substring rmail-reply-regexp 0 2)) | 3287 (if (string= "\\`" (substring rmail-reply-regexp 0 2)) |
3286 (substring rmail-reply-regexp 2) | 3288 (substring rmail-reply-regexp 2) |
3287 rmail-reply-regexp) | 3289 rmail-reply-regexp) |
3288 subject "[ \t]*\n"))) | 3290 subject "[ \t]*\n"))) |
3289 | 3291 |