From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 17:55:56 +0000 (+0000)
Subject: Use new command-suffix mechanism to delay mode-line updates to end of
X-Git-Tag: 20090517-FFI~3914
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ec4886c7a5ca23da4ab09c4082c55b9fb2c6d8a;p=mit-scheme.git

Use new command-suffix mechanism to delay mode-line updates to end of
command.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 581cdd94e..784b7efde 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.37 2000/05/08 15:46:20 cph Exp $
+;;; $Id: imail-top.scm,v 1.38 2000/05/08 17:55:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -138,7 +138,9 @@ May be called with an IMAIL folder URL as argument;
   (buffer-put! buffer 'IMAIL-FOLDER folder)
   (folder-put! folder 'BUFFER buffer)
   (add-event-receiver! (folder-modification-event folder)
-		       notice-folder-modifications))
+		       (lambda (folder)
+			 (maybe-add-command-suffix! notice-folder-modifications
+						    folder))))
 
 (define (imail-folder->buffer folder error?)
   (or (let ((buffer (folder-get folder 'BUFFER #f)))
@@ -493,7 +495,7 @@ With prefix argument N moves backward N messages with these flags."
 					   'SELECT-MESSAGE))))
 	(full-headers? (if (default-object? full-headers?) #f full-headers?)))
     (if (or (if (default-object? force?) #f force?)
-	    (not (eq? message (buffer-get buffer 'IMAIL-MESSAGE 'UNDEFINED))))
+	    (not (eq? message (buffer-get buffer 'IMAIL-MESSAGE 'UNKNOWN))))
 	(begin
 	  (buffer-reset! buffer)
 	  (associate-imail-folder-with-buffer folder buffer)
@@ -525,7 +527,9 @@ With prefix argument N moves backward N messages with these flags."
 	     (selected-buffer)
 	     buffer)))
     (let ((folder (selected-folder #f buffer))
-	  (message (buffer-get buffer 'IMAIL-MESSAGE #f)))
+	  (message (buffer-get buffer 'IMAIL-MESSAGE 'UNKNOWN)))
+      (if (eq? message 'UNKNOWN)
+	  (error "IMAIL-MESSAGE property not bound:" buffer))
       (or (and message
 	       (if (eqv? folder (message-folder message))
 		   message