From e346e3e4aa3421906dc25bdec52ac40ad5efe04e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 02:37:16 +0000
Subject: [PATCH] Implement new commands: 	imail-bury 
 imail-next-same-subject 	imail-previous-same-subject

---
 v7/src/imail/imail-summary.scm | 17 +++--------------
 v7/src/imail/imail.pkg         |  3 +--
 2 files changed, 4 insertions(+), 16 deletions(-)

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
-- 
2.25.1