From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 02:38:05 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~3530
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e66082fdfd5f3364d1e479499e43b64d4188529c;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 609f39833..df916cdf4 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.19 2000/06/15 02:35:59 cph Exp $
+;;; $Id: imail-summary.scm,v 1.20 2000/06/15 02:38:05 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -93,7 +93,7 @@ Edwin will list the header line in the summary."
   "sRegexp to summarize by"
   (lambda (regexp)
     (imail-summary
-     (string-append "Regular expression " recipients-string)
+     (string-append "Regular expression " regexp)
      (lambda (m)
        (re-string-search-forward regexp
 				 (header-fields->string
@@ -111,7 +111,7 @@ SUBJECT is a string of regexps separated by commas."
      (let ((regexp
 	    (apply regexp-group
 		   (map re-quote-string
-			(burst-comma-list-string recipients-string)))))
+			(burst-comma-list-string regexps-string)))))
        (lambda (m)
 	 (let ((s (get-first-header-field-value m "subject" #f)))
 	   (and s