From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 18:52:02 +0000 (+0000)
Subject: Fix bug in MESSAGE-LENGTH.
X-Git-Tag: 20090517-FFI~3701
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9bd0a3a9ba11c6a9f3d773bd16e2d364e178ab15;p=mit-scheme.git

Fix bug in MESSAGE-LENGTH.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 0c416db51..76e4d11b1 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.89 2000/05/23 18:36:36 cph Exp $
+;;; $Id: imail-core.scm,v 1.90 2000/05/23 18:52:02 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -489,12 +489,13 @@
 
 (define-generic message-length (message))
 (define-method message-length ((message <message>))
-  (+ (reduce (lambda (header)
-	       (+ (string-length (header-field-name header))
-		  (string-length (header-field-value header))
-		  2))
-	     1
-	     (message-header-fields message))
+  (+ (apply +
+	    (map (lambda (header)
+		   (+ (string-length (header-field-name header))
+		      (string-length (header-field-value header))
+		      2))
+		 (message-header-fields message)))
+     1
      (string-length (message-body message))))
 
 ;;;; Message Navigation