From 9bd0a3a9ba11c6a9f3d773bd16e2d364e178ab15 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 18:52:02 +0000
Subject: [PATCH] Fix bug in MESSAGE-LENGTH.

---
 v7/src/imail/imail-core.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

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
-- 
2.25.1