Write M-x imail-copy-messages.

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index ec0d1a5882a4b3fc13ba285d60a952a27bf869f8..a8a160329b888a68f32fb12daf68c77f08fe0b96 100644 (file)
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.7 2000/05/22 13:36:29 cph Exp $
+;;; $Id: load.scm,v 1.8 2000/05/22 15:08:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -38,6 +38,7 @@
          '(edwin-command$imail
            edwin-command$imail-add-flag
            edwin-command$imail-continue
+           edwin-command$imail-copy-messages
            edwin-command$imail-create-folder
            edwin-command$imail-delete-backward
            edwin-command$imail-delete-folder
@@ -91,5 +92,4 @@
            edwin-variable$imail-summary-mode-hook
            edwin-variable$imail-summary-pop-up-message
            edwin-variable$imail-summary-show-date
-           edwin-variable$imail-summary-subject-width
-           imail-copy-folder))
\ No newline at end of file
+           edwin-variable$imail-summary-subject-width))
\ No newline at end of file