From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jun 2000 21:27:26 +0000 (+0000)
Subject: Generate message "No changes to save." from SAVE-FOLDER on an IMAP
X-Git-Tag: 20090517-FFI~3598
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25cd307e23fada29b7a3dadf1fc67f2dbcbe478c;p=mit-scheme.git

Generate message "No changes to save." from SAVE-FOLDER on an IMAP
folder.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 8f7e14041..f7f7ef5ea 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.112 2000/06/05 21:25:34 cph Exp $
+;;; $Id: imail-imap.scm,v 1.113 2000/06/05 21:27:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1125,7 +1125,7 @@
 (define-method save-folder ((folder <imap-folder>))
   ;; Changes are always written through.
   folder
-  #f)
+  (imail-ui:message "(No changes to save.)"))
 
 (define-method discard-folder-cache ((folder <imap-folder>))
   (close-folder folder)
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ef0e3786b..e13b2d7be 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.133 2000/06/05 21:25:36 cph Exp $
+;;; $Id: imail-top.scm,v 1.134 2000/06/05 21:27:25 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -303,8 +303,8 @@ regardless of the folder type."
 
 (define *imail-message-wrapper-prefix* #f)
 
-(define imail-ui:prompt-for-yes-or-no?
-  prompt-for-yes-or-no?)
+(define imail-ui:message message)
+(define imail-ui:prompt-for-yes-or-no? prompt-for-yes-or-no?)
 
 (define (imail-ui:body-cache-limit message)
   (ref-variable imail-body-cache-limit
diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index fff9a89f2..a573c05f3 100644
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,5 +1,5 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.63 2000/06/05 21:25:37 cph Exp $
+$Id: todo.txt,v 1.64 2000/06/05 21:27:26 cph Exp $
 
 Bug fixes
 ---------
@@ -48,8 +48,6 @@ New features
   AVAILABLE-FOLDER-NAMES.
 
 * Generate file I/O messages when reading and writing file folders.
-  Generate message "No changes to save." from SAVE-FOLDER on an IMAP
-  folder.
 
 * IMAIL must support I/O to compressed files (for my sake if no one
   else).  A clean solution to this requires moving compressed-file