From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Wed, 8 Jan 1992 16:46:42 +0000 (+0000)
Subject: Added args to calls to rmail-summary-delete-message-forward.
X-Git-Tag: 20090517-FFI~10014
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bbb3f7d073f72e6834266efdd35549ada3187b1a;p=mit-scheme.git

Added args to calls to rmail-summary-delete-message-forward.
---

diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm
index 32905f154..02c031053 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.19 1992/01/08 16:11:28 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.20 1992/01/08 16:46:42 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -48,7 +48,7 @@
 
 (define-variable rmailsum-rcs-header
   "The RCS header of the rmailsum.scm file."
-  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.19 1992/01/08 16:11:28 bal Exp $"
+  "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsum.scm,v 1.20 1992/01/08 16:46:42 bal Exp $"
   string?)
 
 (define-variable-per-buffer rmail-buffer
@@ -764,7 +764,7 @@ Calls whatever function is bound to #\c-o in RMAIL mode."
       (execute-command the-command))
     (select-buffer-other-window (ref-variable rmail-summary-buffer))
     (if (ref-variable rmail-delete-after-output)
-	((ref-command rmail-summary-delete-message-forward)))))
+	((ref-command rmail-summary-delete-message-forward) 1))))
 
 (define-command rmail-summary-output-to-rmail-file
   "Append this message to RMAIL file named FILE-NAME.
@@ -778,7 +778,7 @@ Calls whatever function is bound to #\o in RMAIL mode."
       (execute-command the-command))
     (select-buffer-other-window (ref-variable rmail-summary-buffer))
     (if (ref-variable rmail-delete-after-output)
-	((ref-command rmail-summary-delete-message-forward)))))
+	((ref-command rmail-summary-delete-message-forward) 1))))
 
 (define-command rmail-summary-get-new-mail
   "Get new mail.