Fix thinko in previous change.

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index c2719e957db0ab34567ec82d9761dbc8a3d8d5e4..2899e8282fbb2068a964ac334653aa520a24a339 100644 (file)
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.56 2001/03/19 19:33:01 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.57 2001/03/19 20:01:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -209,7 +209,9 @@
                 (+ (string-length line) 1)))
             (else
              (skip-past-blank-line port)
-             (- (xstring-port/position port) 1)))))))
+             (let ((end (- (xstring-port/position port) 1)))
+               (skip-rmail-message-headers-separator port)
+               end)))))))
 
 (define (read-rmail-displayed-headers port)
   (let ((start (xstring-port/position port)))