From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 02:37:16 +0000 (+0000)
Subject: Implement new commands:
X-Git-Tag: 20090517-FFI~3531
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e346e3e4aa3421906dc25bdec52ac40ad5efe04e;p=mit-scheme.git

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 2e5e1c7e6..609f39833 100644
--- 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))))
 
 ;;;; 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 7149fcfeb..0d8674d57 100644
--- 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