From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Sep 2001 17:45:26 +0000 (+0000)
Subject: Fix problem with IMAIL-SUMMARY-MATCH-LINE: messages with malformed
X-Git-Tag: 20090517-FFI~2576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a4aab4814991d48589169e41a90af752c9f3937;p=mit-scheme.git

Fix problem with IMAIL-SUMMARY-MATCH-LINE: messages with malformed
dates were not being matched.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 5ba8791d3..272e1fb19 100644
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.44 2001/09/14 17:19:15 cph Exp $
+;;; $Id: imail-summary.scm,v 1.45 2001/09/20 17:45:26 cph Exp $
 ;;;
 ;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
 ;;;
@@ -487,9 +487,8 @@ SUBJECT is a string of regexps separated by commas."
    (string-append
     "[* ][D ][U ][A ][R ][F ] +\\([0-9]+\\)  +\\([0-9.]+[a-zA-Z ]\\)"
     (if (ref-variable imail-summary-show-date mark)
-	" \\([ 123][0-9] [a-zA-Z]+\\)"
-	"")
-    "  ")
+	" \\([ 123][0-9] [a-zA-Z]+  \\| +\\)"
+	"  "))
    (line-start mark 0)
    (line-end mark 0)
    #f))