Implement new commands:

	imail-bury
	imail-next-same-subject
	imail-previous-same-subject

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 2e5e1c7e6e5f06cc41a41f095ef1803db6a909f3..609f39833356fe5aee656052e49f872ad827cd80 100644 (file)
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.18 2000/06/15 01:57:41 cph Exp $
+;;; $Id: imail-summary.scm,v 1.19 2000/06/15 02:35:59 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -416,7 +416,6 @@ with some additions to make navigation more natural.
 (define-key 'imail-summary #\c-n       'imail-next-message)
 (define-key 'imail-summary #\c-p       'imail-previous-message)
 (define-key 'imail-summary #\.         'undefined)
-(define-key 'imail-summary #\q         'imail-summary-quit)
 (define-key 'imail-summary #\u         'imail-undelete-forward)
 (define-key 'imail-summary #\m-<       'imail-first-message)
 (define-key 'imail-summary #\m->       'imail-last-message)
@@ -453,17 +452,6 @@ with some additions to make navigation more natural.
                         (buffer-end (window-buffer window)))
                     0))))
     ((ref-command imail-summary-select-message))))
-
-(define-command imail-summary-quit
-  "Quit out of IMAIL."
-  ()
-  (lambda ()
-    (let ((folder-buffer
-          (buffer-get (selected-buffer) 'IMAIL-FOLDER-BUFFER #f)))
-      (if folder-buffer
-         (for-each window-delete! (buffer-windows folder-buffer))))
-    ((ref-command imail-quit))
-    ((ref-command bury-buffer))))
 \f
 ;;;; Navigation
 
@@ -567,7 +555,8 @@ with some additions to make navigation more natural.
                     (ref-variable imail-summary-highlight-message buffer))
                (begin
                  (highlight-region (make-region mark (line-end mark 0))
-                                   #t)))))))
+                                   #t)
+                 (buffer-not-modified! buffer)))))))
   (if (ref-variable imail-summary-pop-up-message buffer)
       (imail-summary-pop-up-message-buffer buffer)))
 

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 7149fcfeb5d1ca1321ade37e335cfb85f69cf530..0d8674d571ab23a0ba8e535d12a94cdc30a6c4ce 100644 (file)
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.59 2000/06/15 02:35:54 cph Exp $
+;;; $Id: imail.pkg,v 1.60 2000/06/15 02:37:16 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -242,7 +242,6 @@
          edwin-command$imail-summary-by-recipients
          edwin-command$imail-summary-by-regexp
          edwin-command$imail-summary-by-topic
-         edwin-command$imail-summary-quit
          edwin-command$imail-summary-select-message
          edwin-command$imail-toggle-message
          edwin-command$imail-undelete-backward