Define generic BURST-COMMA-LIST-STRING.

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index a83071745bbffed98e00d27c766ec70a0984422b..2a3a068d4012d77932f0484480dfc448dc482db6 100644 (file)
--- 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?))
 \f
 (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 a62343b1ff9999d1ed2f612a2a6df73f02c8fa5d..088024fe574c6dc2c989f99daf250fa3db1db6f1 100644 (file)
--- 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 813241dbdfdab64e587731ca5e35cfd4f02c15a5..b0afd551a7222a34f35e22bb634ba2b49efdb36e 100644 (file)
--- 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