From b0766b9b9b158a90ab7c2f84dcf9cb11ff2c61bf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 18 May 2000 15:35:29 +0000 Subject: [PATCH] Change message-deletion commands to take a repeat argument. --- v7/src/imail/imail-top.scm | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) 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." -- 2.25.1