Implement mail aliases and ~/.mailrc file.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index e7481577aa91dae7e858d5180c760ac39aa61856..057f861fe59ecb8916d10c320e5f1a2034ebc13a 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.18 1991/04/21 00:49:38 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.19 1991/04/24 07:27:28 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -137,6 +137,7 @@ MIT in each case. |#
              "linden"
              "loadef"
              "lspcom"
+             "malias"
              "midas"
              "modefs"
              "modes"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index bef9923d2d8df3693116f13cf26c6680bc817ffb..68f2ed8cccd66ef765742e8dd12aea56a50c1ebe 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -107,6 +107,8 @@
               edwin-syntax-table)
     ("macros"  (edwin macros)
               syntax-table/system-internal)
+    ("malias"  (edwin mail-alias)
+              edwin-syntax-table)
     ("make"    ()
               syntax-table/system-internal)
     ("midas"   (edwin)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 3234e9d7bd57305dbc1537f488a43674383d23cf..dd5251dbab5086981eeff35f617624523a67b2da 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.14 1991/04/21 00:50:02 cph Exp $
+;;; $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 $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -98,6 +98,7 @@
     (load "kmacro" environment)
     (load "lincom" environment)
     (load "lspcom" environment)
+    (load "malias" (->environment '(EDWIN MAIL-ALIAS)))
     (load "motcom" environment)
     (load "rcs" (->environment '(EDWIN RCS)))
     (load "reccom" (->environment '(EDWIN RECTANGLE)))

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 8190bf511c24fecc2e7dda4859024e7840ae6a28..a015a26950fc54d47867ae0ca370b31b40bf0fbe 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.31 1991/04/24 00:54:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.32 1991/04/24 07:27:00 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -730,4 +730,12 @@ MIT in each case. |#
          edwin-variable$mail-yank-ignored-headers
          edwin-variable$send-mail-procedure
          edwin-variable$sendmail-program
-         make-mail-buffer))
\ No newline at end of file
+         make-mail-buffer))
+
+(define-package (edwin mail-alias)
+  (files "malias")
+  (parent (edwin))
+  (export (edwin)
+         define-mail-alias
+         expand-mail-aliases
+         guarantee-mail-aliases))
\ No newline at end of file

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index cad60d30302a7445102995b0918ef3b10f6c6759..a0875b5c82e8a3919db6108629eb44c9dc24aec9 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.36 1991/04/23 06:50:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.37 1991/04/24 07:28:20 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 36 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 37 '()))
\ No newline at end of file

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index db645aa637d1beb6358a02b086ea85780feaa0ce..c56313ea5d37bfd46a99acb15bef1b1e12431e8c 100644 (file)
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.4 1991/04/24 00:53:42 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.5 1991/04/24 07:26:09 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -249,16 +249,16 @@ Prefix arg means don't delete this window."
   (lambda (argument)
     ((ref-command mail-send))
     (bury-buffer (current-buffer))
-    (if #|
-       (and (not argument)
+    (if (and (not argument)
             (not (window-has-no-neighbors? (current-window)))
             (eq? (ref-mode-object rmail)
                  (buffer-major-mode (window-buffer (other-window)))))
-       |#
-       false
        (window-delete! (current-window))
        (select-buffer (previous-buffer)))))
 
+(define-major-mode rmail fundamental "RMAIL"
+  "Not implemented")
+
 (define-command mail-send
   "Send the message in the current buffer.
 If  mail-interactive  is non-false, wait for success indication
@@ -517,11 +517,4 @@ Numeric argument means justify as well."
            (loop (cons (string->pathname filename) pathnames)))
          (begin
            (mark-temporary! m)
-           pathnames)))))
-
-(define (guarantee-mail-aliases)
-  unspecific)
-
-(define (expand-mail-aliases start end)
-  start end
-  unspecific)
\ No newline at end of file
+           pathnames)))))
\ No newline at end of file