From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 17:54:47 +0000 (+0000)
Subject: Eliminate compiler warning.
X-Git-Tag: 20090517-FFI~3836
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f8bc4210c66935a3ba54c7bf8c6fe5e230083c4b;p=mit-scheme.git

Eliminate compiler warning.
---

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index 488c5e408..75260c24d 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.30 2000/05/17 17:54:08 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.31 2000/05/17 17:54:34 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -93,6 +93,7 @@
   'UNDEFINED)
 
 (define-method make-message-copy ((message <message>) (folder <rmail-folder>))
+  folder
   (make-rmail-message (message-header-fields message)
 		      (message-body message)
 		      (list-copy (message-flags message))
diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index 8d263a6eb..413e8cc6b 100644
--- a/v7/src/imail/imail-umail.scm
+++ b/v7/src/imail/imail-umail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-umail.scm,v 1.25 2000/05/17 15:03:01 cph Exp $
+;;; $Id: imail-umail.scm,v 1.26 2000/05/17 17:54:47 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -81,6 +81,7 @@
 		  (message-internal-time message))))
 
 (define-method make-message-copy ((message <message>) (folder <umail-folder>))
+  folder
   (make-umail-message (message-header-fields message)
 		      (message-body message)
 		      (list-copy (message-flags message))