From: Taylor R. Campbell <net/mumble/campbell>
Date: Sun, 31 Aug 2008 19:32:09 +0000 (+0000)
Subject: When computing from strings in summaries, avoid empty matches between
X-Git-Tag: 20090517-FFI~195
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=99c8fd5709a063424a746c58efda24f762ab1f2e;p=mit-scheme.git

When computing from strings in summaries, avoid empty matches between
parentheses: `From: foo@mumble.bar ()'.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index ac4b48ac0..964f51331 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.58 2008/08/27 14:55:48 riastradh Exp $
+$Id: imail-summary.scm,v 1.59 2008/08/31 19:32:09 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -421,7 +421,7 @@ SUBJECT is a string of regexps separated by commas."
 	  ;; Chris VanHaren (Athena User Consultant) <vanharen>
 	  ((re-string-search-forward "[ \t\"]*\\<\\(.*\\)\\>.*(.*).*<.*>.*" s)
 	   => (field 1))
-	  ((re-string-search-forward ".*(\\(.*\\))" s)
+	  ((re-string-search-forward ".*(\\(.+\\))" s)
 	   => (field 1))
 	  ((re-string-search-forward ".*<\\(.*\\)>.*" s)
 	   => (field 1))