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).

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 3bd66fc99143e00126a741f44dfed807b07f0b22..6cf46287c4dc5870674e3fe563dd6edc430d6137 100644 (file)
--- 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 284bbee24d37ac8d5e13a4a7b5ec749452721106..1f1c6a57fa2771356cca61ada4904db7617fdc2f 100644 (file)
--- 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 e6c5210152edddfaf78a92499e2b6caa11878b27..f67c142a9f1b15591898e04b52f6e61e506d776a 100644 (file)
--- 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 dbb36aab7dd4ae504b6a00d1878a9bb22b7bbac7..1ad14043c6702c11a18094298a7c6f30c9d7adf4 100644 (file)
--- 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 @@
 \f
 (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
 ;;;   ""
 ;;;   ""