From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Aug 1993 21:06:09 +0000 (+0000)
Subject: RMAIL-SUMMARY-BUFFER must be bound in order for RMAIL-CEASE-EDIT to
X-Git-Tag: 20090517-FFI~8149
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ac0bc62309921cbce872b8626821a8e962cf352;p=mit-scheme.git

RMAIL-SUMMARY-BUFFER must be bound in order for RMAIL-CEASE-EDIT to
work correctly.
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index f776331ad..d861ad76f 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.21 1993/02/25 08:55:45 gjr Exp $
+;;;	$Id: loadef.scm,v 1.22 1993/08/02 21:05:52 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -85,6 +85,12 @@
   "An event distributor that is invoked when entering RMAIL Summary mode."
   (make-event-distributor))
 
+(define-variable-per-buffer rmail-summary-buffer
+  "Corresponding RMAIL-summary buffer for an RMAIL buffer.
+FALSE means buffer has no summary buffer."
+  false
+  (lambda (x) (or (not x) (buffer? x))))
+
 (define-library 'MIDAS-MODE
   '("midas" (EDWIN)))
 
diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index c946556f8..f0e72fdc1 100644
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmailsum.scm,v 1.29 1992/11/18 21:53:22 cph Exp $
+;;;	$Id: rmailsum.scm,v 1.30 1993/08/02 21:06:09 cph Exp $
 ;;;
-;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1991-93 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -48,28 +48,19 @@
 
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Id: rmailsum.scm,v 1.29 1992/11/18 21:53:22 cph Exp $"
+  "$Id: rmailsum.scm,v 1.30 1993/08/02 21:06:09 cph Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
   "Corresponding RMAIL buffer for a summary buffer.
 FALSE means buffer is not a summary buffer."
   false
-  (lambda (x)
-    (or (not x) (buffer? x))))
-
-(define-variable-per-buffer rmail-summary-buffer
-  "Corresponding RMAIL-summary buffer for an RMAIL buffer.
-FALSE means buffer has no summary buffer."
-  false
-  (lambda (x)
-    (or (not x) (buffer? x))))
+  (lambda (x) (or (not x) (buffer? x))))
 
 (define-variable-per-buffer rmail-summary-vector
   "Vector of header lines."
   false
-  (lambda (x)
-    (or (not x) (vector? x))))
+  (lambda (x) (or (not x) (vector? x))))
 
 ;;; (define-variable rmail-last-multi-labels
 ;;;   ""