From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 16:32:51 +0000 (+0000)
Subject: Eliminate "edited" flag.
X-Git-Tag: 20090517-FFI~3799
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00e7486c4a8b297b2d8c78a25c4703bba9b28928;p=mit-scheme.git

Eliminate "edited" flag.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index fe896f10a..03ef1f43d 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.73 2000/05/19 04:16:16 cph Exp $
+;;; $Id: imail-core.scm,v 1.74 2000/05/19 16:32:50 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -491,7 +491,7 @@
       (error:wrong-type-argument object "message flag" procedure)))
 
 (define standard-message-flags
-  '("answered" "deleted" "edited" "filed" "forwarded" "resent" "seen"))
+  '("answered" "deleted" "filed" "forwarded" "resent" "seen"))
 
 (define (message-flags->header-field flags)
   (make-header-field message-flags:name
@@ -544,11 +544,6 @@
 (define (message-forwarded msg) (set-message-flag msg "forwarded"))
 (define (message-not-forwarded msg) (clear-message-flag msg "forwarded"))
 
-(define (message-edited? msg) (message-flagged? msg "edited"))
-(define (message-unedited? msg) (not (message-flagged? msg "edited")))
-(define (message-edited msg) (set-message-flag msg "edited"))
-(define (message-not-edited msg) (clear-message-flag msg "edited"))
-
 (define (message-resent? msg) (message-flagged? msg "resent"))
 (define (message-not-resent? msg) (not (message-flagged? msg "resent")))
 (define (message-resent msg) (set-message-flag msg "resent"))
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ae365a562..18203e479 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.67 2000/05/19 05:03:44 cph Exp $
+;;; $Id: imail-top.scm,v 1.68 2000/05/19 16:32:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -232,7 +232,7 @@ DEL	Scroll to previous screen of this message.
 \\[imail-next-flagged-message]	Move to next message with specified flag
           (flag defaults to last one specified).
           Standard flags:
-	    answered, deleted, edited, filed, forwarded, resent, seen.
+	    answered, deleted, filed, forwarded, resent, seen.
           Any other flag is present only if you add it with `\\[imail-add-flag]'.
 \\[imail-previous-flagged-message]   Move to previous message with specified flag.