From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 May 2000 17:39:47 +0000 (+0000)
Subject: Completely discard folder when imail buffer is killed.
X-Git-Tag: 20090517-FFI~3896
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4627035f3a0d835157e29b036f7ff6fa78d1bd7;p=mit-scheme.git

Completely discard folder when imail buffer is killed.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 784b7efde..a8a9e188b 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.38 2000/05/08 17:55:56 cph Exp $
+;;; $Id: imail-top.scm,v 1.39 2000/05/10 17:39:47 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -359,12 +359,11 @@ DEL	Scroll to previous screen of this message.
 	     #t))))))
 
 (define (imail-kill-buffer buffer)
-  (imail-close-buffer-folder buffer))
-
-(define (imail-close-buffer-folder buffer)
   (let ((folder (selected-folder #f buffer)))
     (if folder
-	(close-folder folder))))
+	(begin
+	  (close-folder folder)
+	  (unmemoize-folder (folder-url folder))))))
 
 ;;;; Navigation
 
@@ -867,8 +866,9 @@ While composing the reply, use \\[mail-yank-original] to yank the
   "Quit out of IMAIL."
   ()
   (lambda ()
-    ((ref-command imail-save-folder))
-    (imail-close-buffer-folder (selected-buffer))
+    (let ((folder (selected-folder)))
+      (save-folder folder)
+      (close-folder folder))
     ((ref-command bury-buffer))))
 
 (define-command imail-save-folder