Fixed a bug in the generation of summary line.

Edwin always thought it had to build a new summary line.

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index 76273a0d0b08016c0e3a7f299fd34e86d781d99b..b7a2e7537c16c0819df39db3f5cee7de99239850 100644 (file)
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.5 1991/08/13 02:31:02 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.6 1991/08/23 18:11:02 bal Exp $
 ;;;
 ;;;    Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -190,18 +190,13 @@
                    "")))
             (line
              (begin
-               (set-current-point! start)
-               ((ref-command next-line) 1)
-               (let ((point (current-point)))
+               (let ((point (line-start start 2)))
                  (if (string-prefix? 
                       "Summary-line: "
                       (extract-string point (line-end point 0)))
                      (begin
                        (string-tail
-                        (extract-string point
-                                        (begin
-                                          ((ref-command next-line) 1)
-                                          (current-point)))
+                        (extract-string point (line-start point 1))
                         14))
                      false)))))
         ;; If we didn't get a valid status line from the message,