Eliminate compiler warning.

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index 488c5e408333e7a59ae1a6698443be8eba6655fe..75260c24dcf71b32daf76cafe395a08820d24190 100644 (file)
--- 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 8d263a6eb589f14fa8345b3854878be33f3a5271..413e8cc6bccc51356bff26ac24d010e3cc8a006a 100644 (file)
--- 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))