From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Tue, 6 Aug 1991 22:55:31 +0000 (+0000)
Subject: Added RMAIL Summary mode and RMAIL sort mode.
X-Git-Tag: 20090517-FFI~10391
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b73ac1838b82b9ecc98fb97401876cc31da6d436;p=mit-scheme.git

Added RMAIL Summary mode and RMAIL sort mode.
---

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index aa395f78a..4649ff485 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -161,6 +161,10 @@
 	       syntax-table/system-internal)
     ("rmail"   (edwin rmail)
 	       edwin-syntax-table)
+    ("rmailsrt" (edwin rmail)
+	       edwin-syntax-table)
+    ("rmailsum" (edwin rmail)
+	       edwin-syntax-table)
     ("schmod"  (edwin)
 	       edwin-syntax-table)
     ("scrcom"  (edwin)
@@ -220,4 +224,4 @@
     ("xform"   (edwin class-macros transform-instance-variables)
 	       syntax-table/system-internal)
     ("xterm"   (edwin x-screen)
-	       syntax-table/system-internal)))
\ No newline at end of file
+	       syntax-table/system-internal)))
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d10983e78..a0752fe18 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.47 1991/08/06 15:40:49 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.48 1991/08/06 22:52:31 bal Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -885,7 +885,9 @@ MIT in each case. |#
 	  guarantee-mail-aliases))
 
 (define-package (edwin rmail)
-  (files "rmail")
+  (files "rmail"
+	 "rmailsrt"
+	 "rmailsum")
   (parent (edwin))
   (export (edwin)
 	  edwin-command$rmail
@@ -914,4 +916,28 @@ MIT in each case. |#
 	  edwin-variable$rmail-message-filter
 	  edwin-variable$rmail-mode-hook
 	  edwin-variable$rmail-primary-inbox-list
-	  rmail-spool-directory))
\ No newline at end of file
+	  rmail-spool-directory
+	  edwin-command$rmail-sort-by-author
+	  edwin-command$rmail-sort-by-date
+	  edwin-command$rmail-sort-by-recipient
+	  edwin-command$rmail-sort-by-size-lines
+	  edwin-command$rmail-sort-by-subject
+	  edwin-command$rmail-summary
+	  edwin-command$rmail-summary-show-message
+	  edwin-command$rmail-summary-next-message
+	  edwin-command$rmail-summary-previous-message
+	  edwin-command$rmail-summary-next-undelete-message
+	  edwin-command$rmail-summary-previous-undelete-message
+	  edwin-command$rmail-summary-scroll-message-up
+	  edwin-command$rmail-summary-scroll-message-down
+	  edwin-command$rmail-summary-delete-message
+	  edwin-command$rmail-summary-delete-message-forward
+	  edwin-command$rmail-summary-delete-message-backward
+	  edwin-command$rmail-summary-undelete-message
+	  edwin-command$rmail-summary-undelete-message-forward
+	  edwin-command$rmail-summary-undelete-message-backward
+	  edwin-command$rmail-summary-exit
+	  edwin-command$rmail-summary-quit
+	  edwin-mode$rmail-summary
+	  ))
+