rmail-summary-buffer was unassigned initially.

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index f0e72fdc1cc2cf7c09ba0605cf8be67bf6b58920..dbb36aab7dd4ae504b6a00d1878a9bb22b7bbac7 100644 (file)
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: rmailsum.scm,v 1.30 1993/08/02 21:06:09 cph Exp $
+;;;    $Id: rmailsum.scm,v 1.31 1993/08/24 17:25:59 bal Exp $
 ;;;
 ;;;    Copyright (c) 1991-93 Massachusetts Institute of Technology
 ;;;
@@ -48,7 +48,7 @@
 \f
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Id: rmailsum.scm,v 1.30 1993/08/02 21:06:09 cph Exp $"
+  "$Id: rmailsum.scm,v 1.31 1993/08/24 17:25:59 bal Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
@@ -57,6 +57,11 @@ 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
+  (lambda (x) (or (not x) (buffer? x))))
+
 (define-variable-per-buffer rmail-summary-vector
   "Vector of header lines."
   false