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 8f7e14041dcb32b67cdd2e62be30f35b3314049b..f7f7ef5eaa66adfc80f3e3b84bd19a3532fddb7f 100644 (file)
--- 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 ef0e3786b75be5e0563de81c0e77d0fbbe0af580..e13b2d7becf17d98615e6a96f52cb8991588623e 100644 (file)
--- 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 fff9a89f247ea5dc6aefc4dd58f2e10f05487875..a573c05f3e62862d26eb6173775994f2bf5cfab3 100644 (file)
--- 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