# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1195229107 0
# Node ID b5d24ce5f8b71a645f0361838df8395a47f86da9
# Parent  2ccc14139a0bd87c5881827a294ebcb4d02bef95
(rmail-current-subject-regexp): Allow more than one space after "Subject:".

diff -r 2ccc14139a0b -r b5d24ce5f8b7 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Nov 16 11:03:32 2007 +0000
+++ b/lisp/mail/rmail.el	Fri Nov 16 16:05:07 2007 +0000
@@ -3281,7 +3281,9 @@
     (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)