From 507841630c50b778859451353d8e802e4db71ddd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 Dec 2000 04:28:10 +0000
Subject: [PATCH] Fix bug: make sure that "[New Mail]" marker is removed if the
 default folder is deleted.

---
 v7/src/imail/imail-top.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 1be0ad6ac..602cea5cb 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.224 2000/12/21 04:21:36 cph Exp $
+;;; $Id: imail-top.scm,v 1.225 2000/12/21 04:28:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -403,7 +403,8 @@ Instead, these commands are available:
     (if folder
 	(begin
 	  (close-folder folder)
-	  (unmemoize-folder (folder-url folder))))))
+	  (unmemoize-folder (folder-url folder)))))
+  (set-variable! global-mode-string #f buffer))
 
 (define-key 'imail #\a		'imail-add-flag)
 (define-key 'imail #\b		'imail-bury)
@@ -1913,9 +1914,9 @@ Negative argument means search in reverse."
 		   (eq? (folder-url folder) (imail-default-url "imap")))
 	      (begin
 		(set-variable! global-mode-string
-			       (if (> (count-unseen-messages folder) 0)
-				   "[New Mail]"
-				   ""))
+			       (and (> (count-unseen-messages folder) 0)
+				    "[New Mail]")
+			       buffer)
 		(global-window-modeline-event!)))
 	  (buffer-modeline-event! buffer 'PROCESS-STATUS)))))
 
-- 
2.25.1