Implement SKIP-LWSP-BACKWARDS.

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 65b9586f13eecbdc492e8d7196f47a0be2440bcd..55f6bc560c71c7cbd93a3ba28138f4764c8fc9cd 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.25 2000/05/23 03:55:08 cph Exp $
+;;; $Id: imail-util.scm,v 1.26 2000/05/27 00:10:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -126,6 +126,13 @@
 (define char-set:lwsp
   (char-set #\space #\tab))
 
+(define (skip-lwsp-backwards string start end)
+  (let loop ((end end))
+    (if (and (fix:< start end)
+            (char-lwsp? (string-ref string (fix:- end 1))))
+       (loop (fix:- end 1))
+       end)))
+
 (define (quote-lines lines)
   (map (lambda (line)
         (string-append "\t" line))
@@ -170,12 +177,6 @@
                           (if (default-object? line-ending) "\n" line-ending)
                           lines))
 
-(define (short-name->pathname name)
-  (merge-pathnames name (current-home-directory)))
-
-(define (pathname->short-name pathname)
-  (enough-namestring pathname (current-home-directory)))
-
 (define (write-header-fields headers port)
   (for-each (lambda (header)
              (write-header-field header port))