* wl-util.el (wl-save-drafts): Avoid error on redisplaying

message.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3d819c5..ec8eda6 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-01  Ron Isaacson  <Ron.Isaacson@morganstanley.com>
+
+       * wl-util.el (wl-save-drafts): Avoid error on redisplaying
+       message.
+
 2004-12-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 2.12.0 is released.

diff --git a/wl/wl-util.el b/wl/wl-util.el
index a1820d4..eba2e3c 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -586,7 +586,7 @@ that `read' can handle, whenever this is possible."
        (set-buffer (car buffers))
        (if (buffer-modified-p) (wl-draft-save))
        (setq buffers (cdr buffers))))
-    (message msg)))
+    (message "%s" (or msg ""))))
 
 (static-if (fboundp 'read-directory-name)
     (defun wl-read-directory-name (prompt dir)