Synch up with main trunk, and prepare the release 2.12.0.

[elisp/wanderlust.git] / wl / wl-util.el

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)