From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 May 2000 15:35:29 +0000 (+0000)
Subject: Change message-deletion commands to take a repeat argument.
X-Git-Tag: 20090517-FFI~3823
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b0766b9b9b158a90ab7c2f84dcf9cb11ff2c61bf;p=mit-scheme.git

Change message-deletion commands to take a repeat argument.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index a875e37e7..29a34f3fd 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.61 2000/05/18 05:18:01 cph Exp $
+;;; $Id: imail-top.scm,v 1.62 2000/05/18 15:35:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -637,18 +637,22 @@ With prefix argument N moves backward N messages with these flags."
 (define-command imail-delete-forward
   "Delete this message and move to next nondeleted one.
 Deleted messages stay in the file until the \\[imail-expunge] command is given."
-  ()
-  (lambda ()
-    ((ref-command imail-delete-message))
-    ((ref-command imail-next-undeleted-message) 1)))
+  "p"
+  (lambda (n)
+    (do ((i 0 (+ i 1)))
+	((>= i n))
+      ((ref-command imail-delete-message))
+      ((ref-command imail-next-undeleted-message) 1))))
 
 (define-command imail-delete-backward
   "Delete this message and move to previous nondeleted one.
 Deleted messages stay in the file until the \\[imail-expunge] command is given."
-  ()
-  (lambda ()
-    ((ref-command imail-delete-message))
-    ((ref-command imail-next-undeleted-message) -1)))
+  "p"
+  (lambda (n)
+    (do ((i 0 (+ i 1)))
+	((>= i n))
+      ((ref-command imail-delete-message))
+      ((ref-command imail-next-undeleted-message) -1))))
 
 (define-command imail-undelete-previous-message
   "Back up to deleted message, select it, and undelete it."