From 5e80342da4f27a162fb3b3d26a217ba41c85d030 Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Tue, 24 Aug 1993 17:25:59 +0000
Subject: [PATCH] rmail-summary-buffer was unassigned initially.

---
 v7/src/edwin/rmailsum.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index f0e72fdc1..dbb36aab7 100644
--- 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 @@
 
 (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
-- 
2.25.1