From 5359499f16e31d403f81c8acb375ff08bd161c27 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 24 Apr 1991 07:28:20 +0000 Subject: [PATCH] Implement mail aliases and ~/.mailrc file. --- v7/src/edwin/decls.scm | 3 ++- v7/src/edwin/ed-ffi.scm | 2 ++ v7/src/edwin/edwin.ldr | 3 ++- v7/src/edwin/edwin.pkg | 12 ++++++++++-- v7/src/edwin/make.scm | 4 ++-- v7/src/edwin/sendmail.scm | 19 ++++++------------- 6 files changed, 24 insertions(+), 19 deletions(-) diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index e7481577a..057f861fe 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.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 bef9923d2..68f2ed8cc 100644 --- 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 3234e9d7b..dd5251dba 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.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 8190bf511..a015a2695 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.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 cad60d303..a0875b5c8 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.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 db645aa63..c56313ea5 100644 --- 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 -- 2.25.1