From 433acdac621e90802b9cfbd659d5e3a093b8e9a5 Mon Sep 17 00:00:00 2001 From: "Brian A. LaMacchia" Date: Thu, 30 Sep 1993 19:22:54 +0000 Subject: [PATCH] Made rmailsum.scm part of the default edwin system (i.e. it's no longer an autoload) to fix a bug in RMAIL-CEASE-EDIT (rmail-summary-buffer was unassigned if rmailsum.scm wasn't loaded). --- v7/src/edwin/edwin.ldr | 5 +++-- v7/src/edwin/loadef.scm | 26 ++------------------------ v7/src/edwin/rmail.scm | 4 ++-- v7/src/edwin/rmailsum.scm | 8 ++++++-- 4 files changed, 13 insertions(+), 30 deletions(-) diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr index 3bd66fc99..6cf46287c 100644 --- a/v7/src/edwin/edwin.ldr +++ b/v7/src/edwin/edwin.ldr @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: edwin.ldr,v 1.44 1993/09/03 04:41:36 cph Exp $ +$Id: edwin.ldr,v 1.45 1993/09/30 19:22:02 bal Exp $ Copyright (c) 1989-1993 Massachusetts Institute of Technology @@ -213,6 +213,7 @@ MIT in each case. |# (load "regcom" (->environment '(EDWIN REGISTER-COMMAND))) (load "replaz" environment) (load "rmail" (->environment '(EDWIN RMAIL))) + (load "rmailsum" (->environment '(EDWIN RMAIL))) (load "rmailsrt" (->environment '(EDWIN RMAIL))) (load "schmod" environment) (load "sendmail" (->environment '(EDWIN SENDMAIL))) @@ -234,4 +235,4 @@ MIT in each case. |# (if (access *external-doc-strings?* environment) (begin (set! (access *external-doc-strings?* environment) false) - (warn "Remember to use ``dump-doc-strings''!"))))))) \ No newline at end of file + (warn "Remember to use ``dump-doc-strings''!"))))))) diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm index 284bbee24..1f1c6a57f 100644 --- a/v7/src/edwin/loadef.scm +++ b/v7/src/edwin/loadef.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: loadef.scm,v 1.24 1993/08/22 20:47:32 gjr Exp $ +;;; $Id: loadef.scm,v 1.25 1993/09/30 19:22:54 bal Exp $ ;;; ;;; Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology ;;; @@ -69,28 +69,6 @@ "An event distributor that is invoked when entering Telnet mode." (make-event-distributor)) -(define-library 'RMAIL-SUMMARY-MODE - '("rmailsum" (EDWIN RMAIL))) - -(define-autoload-major-mode 'rmail-summary 'fundamental "RMAIL-Summary" - 'RMAIL-SUMMARY-MODE "Summary mode for RMAIL.") - -(define-autoload-command 'rmail-summary 'RMAIL-SUMMARY-MODE - "Enter RMAIL Summary mode.") - -(define-autoload-command 'rmail-summary-by-recipients 'RMAIL-SUMMARY-MODE - "Enter RMAIL Summary mode for specified recipients.") - -(define-variable rmail-summary-mode-hook - "An event distributor that is invoked when entering RMAIL Summary mode." - (make-event-distributor)) - -(define-variable-per-buffer rmail-summary-buffer - "Corresponding RMAIL-summary buffer for an RMAIL buffer. -FALSE means buffer has no summary buffer." - false - (lambda (x) (or (not x) (buffer? x)))) - (define-library 'MIDAS-MODE '("midas" (EDWIN))) @@ -247,4 +225,4 @@ variable's value is #F, the text is printed using LPR-COMMAND." 'DOSSHELL "Major mode for executing DOS commands.") (define-autoload-command 'shell 'DOSSHELL - "Run an inferior pseudo shell, with I/O through buffer *shell*."))) \ No newline at end of file + "Run an inferior pseudo shell, with I/O through buffer *shell*."))) diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm index e6c521015..f67c142a9 100644 --- a/v7/src/edwin/rmail.scm +++ b/v7/src/edwin/rmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: rmail.scm,v 1.29 1993/08/20 19:02:30 cph Exp $ +;;; $Id: rmail.scm,v 1.30 1993/09/30 19:22:30 bal Exp $ ;;; ;;; Copyright (c) 1991-1993 Massachusetts Institute of Technology ;;; @@ -2050,4 +2050,4 @@ Note: it means the file has no messages in it.\n\037") "\n*\n\n----------------------------*\n*") (define digest-separator-replacement - (string-append "\n\037" babyl-initial-message-start)) \ No newline at end of file + (string-append "\n\037" babyl-initial-message-start)) diff --git a/v7/src/edwin/rmailsum.scm b/v7/src/edwin/rmailsum.scm index dbb36aab7..1ad14043c 100644 --- a/v7/src/edwin/rmailsum.scm +++ b/v7/src/edwin/rmailsum.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: rmailsum.scm,v 1.31 1993/08/24 17:25:59 bal Exp $ +;;; $Id: rmailsum.scm,v 1.32 1993/09/30 19:21:47 bal Exp $ ;;; ;;; Copyright (c) 1991-93 Massachusetts Institute of Technology ;;; @@ -48,7 +48,7 @@ (define-variable rmailsum-rcs-header "The RCS header of the rmailsum.scm file." - "$Id: rmailsum.scm,v 1.31 1993/08/24 17:25:59 bal Exp $" + "$Id: rmailsum.scm,v 1.32 1993/09/30 19:21:47 bal Exp $" string?) (define-variable-per-buffer rmail-buffer @@ -67,6 +67,10 @@ FALSE means buffer is not a summary buffer." false (lambda (x) (or (not x) (vector? x)))) +(define-variable rmail-summary-mode-hook + "An event distributor that is invoked when entering RMAIL Summary mode." + (make-event-distributor)) + ;;; (define-variable rmail-last-multi-labels ;;; "" ;;; "" -- 2.25.1