From: yoichi <yoichi>
Date: Sat, 1 Jan 2005 05:56:09 +0000 (+0000)
Subject: * wl-util.el (wl-save-drafts): Avoid error on redisplaying
X-Git-Tag: wl-2_14-root~105
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d329a3d1a3ef9a7d02a644ecbc655153b6a15ab3;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c6dc30a..3074212 100644
--- 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-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-buffer-unsync-mark-number-list):
diff --git a/wl/wl-util.el b/wl/wl-util.el
index a1820d4..eba2e3c 100644
--- 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)