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 aa395f78af60112d09263f70ea7b271611e0fff9..4649ff4855707b021196c36baba32e103ade782e 100644 (file)
--- 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 d10983e78ef2c62209155b6b49cd841bce773d41..a0752fe18c1c63473d688b1b740b4931f1126602 100644 (file)
--- 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
+         ))
+