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 beafe6a..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)
@@ -912,7 +914,7 @@ This function is imported from Emacs 20.7."
 
 (defun wl-biff-check-folder-async (folder notify-minibuf)
   (if (and (elmo-folder-plugged-p folder)
-          (elmo-folder-exists-p folder))
+          (wl-folder-entity-exists-p (elmo-folder-name-internal folder)))
       (progn
        (elmo-folder-set-biff-internal folder t)
        (if (and (eq (elmo-folder-type-internal folder) 'imap4)