Eliminate "edited" flag.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index fe896f10aee72e3ba6052f7b48bd4931fe6f7bfe..03ef1f43d826f78a29866c76ec42d85842661ef8 100644 (file)
--- 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 ae365a5628b75aef5b0d1d278b737d3c29b5d8e5..18203e479e9ff44e0049f2d281fa61071055a928 100644 (file)
--- 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.