From bc8033adfcf3f3665517997adbe27d1b8e56674f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 17:52:40 +0000
Subject: [PATCH] Define generic BURST-COMMA-LIST-STRING.

---
 v7/src/imail/imail-summary.scm | 10 +++-------
 v7/src/imail/imail-top.scm     |  4 ++--
 v7/src/imail/imail-util.scm    | 11 ++++++-----
 3 files changed, 11 insertions(+), 14 deletions(-)

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index a83071745..2a3a068d4 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.11 2000/05/19 17:50:30 cph Exp $
+;;; $Id: imail-summary.scm,v 1.12 2000/05/19 17:52:34 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -57,7 +57,7 @@ The flags are specified as a comma-separated list of names."
     (list (imail-prompt-for-flags "Flags to summarize by")))
   (lambda (flags-string)
     (imail-summary (string-append "Flags " flags-string)
-		   (let ((flags (parse-comma-list-string flags-string)))
+		   (let ((flags (burst-comma-list-string flags-string)))
 		     (lambda (m)
 		       (there-exists? (message-flags m)
 			 (lambda (flag)
@@ -76,7 +76,7 @@ The recipients are specified as a comma-separated list of names."
      (let ((regexp
 	    (apply regexp-group
 		   (map re-quote-string
-			(parse-comma-list-string recipients-string)))))
+			(burst-comma-list-string recipients-string)))))
        (let ((try
 	      (lambda (s)
 		(and s
@@ -86,10 +86,6 @@ The recipients are specified as a comma-separated list of names."
 	       (try (get-first-header-field-value m "to" #f))
 	       (and (not primary-only?)
 		    (try (get-first-header-field-value m "cc" #f))))))))))
-
-(define (parse-comma-list-string string)
-  (list-transform-negative (map string-trim (burst-string string #\, #f))
-    string-null?))
 
 (define (imail-summary description predicate)
   (let* ((folder (selected-folder))
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index a62343b1f..088024fe5 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.69 2000/05/19 17:50:26 cph Exp $
+;;; $Id: imail-top.scm,v 1.70 2000/05/19 17:52:26 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -388,7 +388,7 @@ With prefix argument N moves forward N messages with these flags."
     (list (command-argument)
 	  (imail-prompt-for-flags "Move to next message with flags")))
   (lambda (n flags)
-    (let ((flags (map string-trim (burst-string flags "," #f))))
+    (let ((flags (burst-comma-list-string flags)))
       (if (null? flags)
 	  (editor-error "No flags have been specified."))
       (for-each (lambda (flag)
diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 813241dbd..b0afd551a 100644
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.16 2000/05/18 20:55:05 cph Exp $
+;;; $Id: imail-util.scm,v 1.17 2000/05/19 17:52:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -209,9 +209,6 @@
 	(error "Premature end of file:" port))
     line))
 
-(define (edwin-variable-value name)
-  (variable-value (name->variable name 'ERROR)))
-
 (define (abbreviate-exact-nonnegative-integer n k)
   (if (< n (expt 10 (- k 1)))
       (string-append (string-pad-left (number->string n) (- k 1)) " ")
@@ -239,4 +236,8 @@
 		   ((3) "k")
 		   ((6) "M")
 		   ((9) "G")
-		   ((12) "T")))))))))
\ No newline at end of file
+		   ((12) "T")))))))))
+
+(define (burst-comma-list-string string)
+  (list-transform-negative (map string-trim (burst-string string #\, #f))
+    string-null?))
\ No newline at end of file
-- 
2.25.1