From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 May 1991 22:52:08 +0000 (+0000)
Subject: Add RMAIL mode.
X-Git-Tag: 20090517-FFI~10629
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7fe6da8694cab847178e03101f82dc75401c4bb0;p=mit-scheme.git

Add RMAIL mode.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 3a567f906..7961f6686 100644
--- 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 4a75033f9..b369dc7a6 100644
--- 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 dd5251dba..a58f1e5f1 100644
--- 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 4b70d7d84..5a0c95745 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.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 d2f5a0f7b..01447cbb9 100644
--- 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