From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 21:24:12 +0000 (+0000)
Subject: Change flag-marking commands to accept a prefix argument to repeat with.
X-Git-Tag: 20090517-FFI~3780
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=42aa8ee7648b9418a944af5c196678527feca4fa;p=mit-scheme.git

Change flag-marking commands to accept a prefix argument to repeat with.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 2f8a849e7..8b66c3cc0 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.75 2000/05/19 21:12:14 cph Exp $
+;;; $Id: imail-top.scm,v 1.76 2000/05/19 21:24:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -787,19 +787,27 @@ With prefix argument N, undeletes backward N messages,
 
 (define-command imail-add-flag
   "Add FLAG to flags associated with current IMAIL message.
-Completion is performed over known flags when reading."
+Completion is performed over known flags when reading.
+With prefix argument N, removes FLAG to next N messages,
+ or previous -N if N is negative."
   (lambda ()
-    (list (imail-read-flag "Add flag" #f)))
-  (lambda (flag)
-    (set-message-flag (selected-message) flag)))
+    (list (command-argument-numeric-value (command-argument))
+	  (imail-read-flag "Add flag" #f)))
+  (lambda (delta flag)
+    (move-relative delta #f "message"
+		   (lambda (message) (set-message-flag message flag)))))
 
 (define-command imail-kill-flag
   "Remove FLAG from flags associated with current IMAIL message.
-Completion is performed over known flags when reading."
+Completion is performed over known flags when reading.
+With prefix argument N, removes FLAG from next N messages,
+ or previous -N if N is negative."
   (lambda ()
-    (list (imail-read-flag "Remove flag" #t)))
-  (lambda (flag)
-    (clear-message-flag (selected-message) flag)))
+    (list (command-argument-numeric-value (command-argument))
+	  (imail-read-flag "Remove flag" #t)))
+  (lambda (delta flag)
+    (move-relative delta #f "message"
+		   (lambda (message) (clear-message-flag message flag)))))
 
 (define (imail-read-flag prompt require-match?)
   (prompt-for-string-table-name