Fix bug: STRING->LINES must not return an empty list.

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 55f6bc560c71c7cbd93a3ba28138f4764c8fc9cd..5d8eaace90dd951c30ef27c3afe0fc9b17daef95 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.26 2000/05/27 00:10:12 cph Exp $
+;;; $Id: imail-util.scm,v 1.27 2000/05/30 20:53:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -165,12 +165,10 @@
                       (set-cdr! indexes
                                 (list (substring string start* end)))))))
            indexes)
-         (if (fix:< start end)
-             (list (if (and (fix:= start 0)
-                            (fix:= end (string-length string)))
-                       string
-                       (substring string start end)))
-             '())))))
+         (list (if (and (fix:= start 0)
+                        (fix:= end (string-length string)))
+                   string
+                   (substring string start end)))))))
 
 (define (lines->string lines #!optional line-ending)
   (decorated-string-append "" ""