From: yoichi <yoichi>
Date: Wed, 15 Dec 2004 08:50:31 +0000 (+0000)
Subject: * wl-util.el (wl-save-drafts): Restore echo area.
X-Git-Tag: wl-2_14-root~122
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4453b4bd82ab89e938973d79206d85b9bba1dc7c;p=elisp%2Fwanderlust.git

* wl-util.el (wl-save-drafts): Restore echo area.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ba1d5d8..5d73cde 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-util.el (wl-save-drafts): Restore echo area.
+
 2004-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* Version number is increased to 2.13.0.
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 726042c..a1820d4 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -579,12 +579,14 @@ that `read' can handle, whenever this is possible."
     result))
 
 (defun wl-save-drafts ()
-  (let ((buffers (wl-collect-draft)))
+  (let ((msg (current-message))
+	(buffers (wl-collect-draft)))
     (save-excursion
       (while buffers
 	(set-buffer (car buffers))
 	(if (buffer-modified-p) (wl-draft-save))
-	(setq buffers (cdr buffers))))))
+	(setq buffers (cdr buffers))))
+    (message msg)))
 
 (static-if (fboundp 'read-directory-name)
     (defun wl-read-directory-name (prompt dir)