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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ba1d5d8..5d73cde 100644 (file)
--- 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 (file)
--- 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)