From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Sep 1996 01:01:39 +0000 (+0000)
Subject: Fix buffer-memoization bugs.  Eliminate random patch installed by bal.
X-Git-Tag: 20090517-FFI~5387
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c55afa7a27bac8bd300d59b9ef631e094b127b80;p=mit-scheme.git

Fix buffer-memoization bugs.  Eliminate random patch installed by bal.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index d063a004e..f09fe59d4 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmail.scm,v 1.51 1996/06/16 05:18:24 cph Exp $
+;;;	$Id: rmail.scm,v 1.52 1996/09/30 01:01:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -1665,9 +1665,7 @@ buffer visiting that file."
       (set-buffer-major-mode! buffer (ref-mode-object rmail))
       (with-buffer-open buffer
 	(lambda ()
-	  ;; Memoization is not needed here, and in fact
-	  ;; screws things up royally --- bal
-	  ;; (memoize-buffer buffer)
+	  (memoize-buffer buffer)
 	  (let ((memo (buffer-msg-memo buffer)))
 	    (if (msg-memo? memo)
 		(let ((first (msg-memo/first memo))
@@ -1804,7 +1802,9 @@ Leaves original message, deleted, before the undigestified messages."
       (if m
 	  (let ((m (re-search-forward babyl-header-end-regexp m end false)))
 	    (if m
-		(memoize-messages buffer m end)))))))
+		(begin
+		  (set-buffer-msg-memo! buffer #f)
+		  (memoize-messages buffer m end))))))))
 
 (define (memoize-messages buffer start end)
   (let ((memo (buffer-msg-memo buffer)))