Mercurial > hg > xemacs-beta

diff lisp/vm/vm-save.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children ec9a17fef872
line wrap: on
line diff
--- a/lisp/vm/vm-save.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/vm/vm-save.el	Mon Aug 13 08:51:32 2007 +0200
@@ -98,7 +98,7 @@
   (vm-select-folder-buffer)
   (vm-check-for-killed-summary)
   (vm-error-if-folder-empty)
-  (vm-unsaved-message "Archiving...")
+  (message "Archiving...")
   (let ((auto-folder)
 	(archived 0))
     (unwind-protect
@@ -135,7 +135,7 @@
 		   (if (not (string-equal auto-folder "/dev/null"))
 		       (vm-save-message auto-folder))
 		   (vm-increment archived)
-		   (vm-unsaved-message "%d archived, still working..."
+		   (message "%d archived, still working..."
 				       archived)))
 	    (setq done (eq vm-message-pointer stop-point)
 		  vm-message-pointer (cdr vm-message-pointer))))