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 f776331ad8de2b95eb2ff51465bdb1873fe86382..d861ad76fb82296a052f05be5475ed185ed4130f 100644 (file)
--- 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 c946556f8871cde337deafeb3bd84994808665bd..f0e72fdc1cc2cf7c09ba0605cf8be67bf6b58920 100644 (file)
--- 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 @@
 \f
 (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
 ;;;   ""