Add RMAIL mode.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 3a567f90619db19773fce452bd1e1ce4979d64e9..7961f6686c06002969196aaff32f8bb8bcb6e17b 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.20 1991/05/06 00:57:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.21 1991/05/08 22:50:26 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -151,6 +151,7 @@ MIT in each case. |#
              "regcom"
              "regexp"
              "replaz"
+             "rmail"
              "schmod"
              "scrcom"
              "screen"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 4a75033f9898b3302381a3cf3d1d33c2b04b9690..b369dc7a6e844dad21710f82e9528908546538c6 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -153,6 +153,8 @@
               syntax-table/system-internal)
     ("ring"    (edwin)
               syntax-table/system-internal)
+    ("rmail"   (edwin rmail)
+              edwin-syntax-table)
     ("schmod"  (edwin)
               edwin-syntax-table)
     ("scrcom"  (edwin)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index dd5251dbab5086981eeff35f617624523a67b2da..a58f1e5f14e8afe3586e5168c1d8538dc6fadfb4 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.15 1991/04/24 07:26:31 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.16 1991/05/08 22:50:55 cph Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -104,6 +104,7 @@
     (load "reccom" (->environment '(EDWIN RECTANGLE)))
     (load "regcom" (->environment '(EDWIN REGISTER-COMMAND)))
     (load "replaz" environment)
+    (load "rmail" (->environment '(EDWIN RMAIL)))
     (load "schmod" environment)
     (load "sendmail" (->environment '(EDWIN SENDMAIL)))
     (load "sercom" environment)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 4b70d7d84dcc42afdcac5793278c1b0dd6f5150a..5a0c95745d813f2ccb904b542ba5a0db731d7ad0 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.35 1991/05/02 01:12:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.36 1991/05/08 22:51:14 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -727,6 +727,17 @@ MIT in each case. |#
   (files "sendmail")
   (parent (edwin))
   (export (edwin)
+         edwin-command$mail
+         edwin-command$mail-bcc
+         edwin-command$mail-cc
+         edwin-command$mail-fill-yanked-message
+         edwin-command$mail-other-window
+         edwin-command$mail-send
+         edwin-command$mail-send-and-exit
+         edwin-command$mail-signature
+         edwin-command$mail-subject
+         edwin-command$mail-to
+         edwin-command$mail-yank-original
          edwin-mode$mail
          edwin-variable$mail-archive-file-name
          edwin-variable$mail-default-reply-to
@@ -746,4 +757,36 @@ MIT in each case. |#
   (export (edwin)
          define-mail-alias
          expand-mail-aliases
-         guarantee-mail-aliases))
\ No newline at end of file
+         guarantee-mail-aliases))
+
+(define-package (edwin rmail)
+  (files "rmail")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$rmail
+         edwin-command$rmail-delete-backward
+         edwin-command$rmail-delete-forward
+         edwin-command$rmail-delete-message
+         edwin-command$rmail-expunge
+         edwin-command$rmail-get-new-mail
+         edwin-command$rmail-last-message
+         edwin-command$rmail-next-message
+         edwin-command$rmail-next-undeleted-message
+         edwin-command$rmail-previous-message
+         edwin-command$rmail-previous-undeleted-message
+         edwin-command$rmail-show-message
+         edwin-command$rmail-toggle-header
+         edwin-command$rmail-undelete-previous-message
+         edwin-mode$rmail
+         edwin-variable$rmail-default-dont-reply-to-names
+         edwin-variable$rmail-delete-after-output
+         edwin-variable$rmail-dont-reply-to-names
+         edwin-variable$rmail-file-name
+         edwin-variable$rmail-ignored-headers
+         edwin-variable$rmail-inbox-list
+         edwin-variable$rmail-last-file
+         edwin-variable$rmail-last-rmail-file
+         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

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index d2f5a0f7be0e7873078cebfad40a0d37a0b89796..01447cbb9e32cfa80701228f189bcf3f8d7b84a8 100644 (file)
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.41 1991/05/02 01:13:45 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.42 1991/05/08 22:52:08 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 41 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 42 '()))
\ No newline at end of file