From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 26 Aug 1991 22:06:09 +0000 (+0000)
Subject: Fixed bug in output and recipients-narrowed summaries.
X-Git-Tag: 20090517-FFI~10294
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=63e2aa0ea9f6e7e676e85dc01777168765b70e30;p=mit-scheme.git

Fixed bug in output and recipients-narrowed summaries.
---

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index beb460ce8..dea653624 100644
--- a/v7/src/edwin/rmailsum.scm
+++ b/v7/src/edwin/rmailsum.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.11 1991/08/26 20:20:41 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.12 1991/08/26 22:06:09 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -675,7 +675,9 @@ Calls whatever function is bound to #\c-o in RMAIL mode."
     (let ((the-command
 	   (comtab-entry (mode-comtabs (current-major-mode)) #\c-o)))
       (execute-command the-command))
-    ((ref-command rmail-summary))))
+    (select-buffer-other-window rmail-summary-buffer)
+    (if (ref-variable rmail-delete-after-output)
+	((ref-command rmail-summary-delete-message-forward)))))
 
 (define-command rmail-summary-output-to-rmail-file
   "Append this message to RMAIL file named FILE-NAME.
@@ -686,7 +688,9 @@ Calls whatever function is bound to #\o in RMAIL mode."
     (let ((the-command
 	   (comtab-entry (mode-comtabs (current-major-mode)) #\o)))
       (execute-command the-command))
-    ((ref-command rmail-summary))))
+    (select-buffer-other-window rmail-summary-buffer)
+    (if (ref-variable rmail-delete-after-output)
+	((ref-command rmail-summary-delete-message-forward)))))
 
 (define-command rmail-summary-get-new-mail
   "Get new mail.