(rmail-current-subject-regexp): Allow more than one space after "Subject:".

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1793d7963e9..fca25ad829b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-16  Eli Zaretskii  <eliz@gnu.org>
+
+        * mail/rmail.el (rmail-current-subject-regexp): Allow more than
+        one space after "Subject:".
+
 2007-11-16  Juanma Barranquero  <lekktu@gmail.com>
 
         * subr.el (make-variable-frame-local):
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)