diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2007-11-16 16:05:53 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2007-11-16 16:05:53 +0000 |
| commit | cca246708aab7e48c28ceb31d54f3da0317b91dc (patch) | |
| tree | 0e76d541ff56d775ec9704f5f059fc530e423a0c /lisp/mail | |
| parent | a4f4cc7ef35dd0249ace8a87557570317cad933c (diff) | |
| download | emacs-cca246708aab7e48c28ceb31d54f3da0317b91dc.tar.gz | |
(rmail-current-subject-regexp): Allow more than one space after "Subject:".
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 30731c2bea9..0dd65f5191a 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3281,7 +3281,9 @@ and more whitespace. The returned regular expressions contains (setq subject (regexp-quote subject)) (setq subject (replace-regexp-in-string "[ \t\n]+" "[ \t\n]+" subject t t)) - (concat "^Subject: " + ;; Some mailers insert extra spaces after "Subject:", so allow any + ;; amount of them. + (concat "^Subject:[ \t]+" (if (string= "\\`" (substring rmail-reply-regexp 0 2)) (substring rmail-reply-regexp 2) rmail-reply-regexp) |