From a4627035f3a0d835157e29b036f7ff6fa78d1bd7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 10 May 2000 17:39:47 +0000 Subject: [PATCH] Completely discard folder when imail buffer is killed. --- v7/src/imail/imail-top.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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 -- 2.25.1